ADD-ON-M* 


LINE® LOC 
00001 0000 
00002 0000 
00002 0000 
00004 0000 
00005 0000 
00006 0000 
00007 0000 
00008 0Oco 
00009 0000 
00010 0000 
00011 0000 
00012 0000 
00013 0000 
00014 0000 
00015 0000 
00016 0000 
00017 0000 
00019 0000 
00020 0000 
00021 0000 
00022 0000 
00023 0000 
00028 0000 
00025 0000 
00026 0000 
G0027 0000 
00028 0000 
00029 0000 
00030 0000 
00031 0000 
00032 0000 
00033 0000 


LINE 


3 AE EE HE TE EH EE He AE HE He 


3 tt * 
it AAA DDDD DDDD 000 N N * 
ie A AD DD D O GO NN N + 
i” A AD DD D ### O CO NNWN * 
7% AAAAA D DD D x## O ONNW * 
i* A AD DD D 8) QO N NN * 
ik A A DDDD DDDD 000 N N r 
i# t 
i* a Mm OOO N N * 
3 + MM MM O O NN WN ' 
7% wee MMM O uo NM fi! * 
;% Hee M&M MO Oo NNN * 
i # M MO ON NN * 
i* M M OOO N N * 
;* R 


5 MAMMA ERE HERR HERRERO R 


fp MMMM RI REHEARSE RTHREKR REHEAT 
3 

;# 64K-ADD-ON MONITOR 

3% 

+* THIS PROGRAM ALLOWS A USER TO 

i% FXAMINE. MODIFY, AND RUN FROGRAMS 

+%# WITH BREAKPOINTS IN THE 64K ADD-ON 
5% MEMORY. IT IS FUNCTIONALLY THE SAME 
;#* AG THE PET RESIDENT MONITOR. 

3 + 

7* 29JAN81 RJF EFJULB1 RUF 

3; 

3s % CBM PART # 8032118-01 REVB 

i* 

5 MEME EE EE EE EE EEE EHR HEHEHE ER HOH 


“eae ee wm em ee 


ADD-ON-M#...... PAGE 0002 


LINE# LOC CODE LINE 


00035 0000 


00036 0000 *>VIRTUAL REGISTERS 

00037 0000 ; 

00038 0000 PCH ant) >PROGRAM COUNTER 
00039 0001 PCL Ste Doe | 

00040 0002 FLeS H=zt+] sPROCESSOR STATUS 
00041 0003 ACC t=4+1 is ACCUMUL 470R 

00042 0004 XR H=t+1 +X INDEX 

00C43 0005S YR H#=H+1 5VY INDEX 

00044 0006 SP H=t+] i STACK POINTER 
00045 0007 INVH tat+] iUSER IRQ VECTOR 
000464 0008 INVL #=et+1 

00047 0009 MEMMAP #=4#+1 i ADD-GN CONTROL REG 
00048 OO00A i 

00049 O00A » INDIRE.T POINTERS 

00030 000A i 

00051 O00A STAL sdb 1 i SAVE STORE. POINTER 
00052 O0OOB STAH H=t+l 

000583 O0o0cCc ; 

00034 0O00Cc SAL #=R+14 i LGAD/SAVE START 
000535 0oO0o0D SAH Hat] 

00086 OO00E ; 

00037 OOO0E EAL triet 4 i LOAD/SAVE END 
00038 OOOF EAH H#=*+1 

00039 0010 3 

00060 0010 TMPO pate? *+MONITOR INDIRECTS 
00061 0012 i 

00062 0012 TMP2] #2442 

00063 ©0014 A 

00064 0014 i; WORKING VARIABLES 

00065 0014 i 

09066 0014 TMPC emp 

00067 0015 SAVX Hoe+) 

00068 00146 WRAP H=He4 1 iWRAP FLAG FOR DISPLYM 
00069 0017 i 

00070 0017 TMPA w=Ht+ 1 i. A SAVe FOR IRG 


00071 0018 TMPPS #=4#4+1 i.P SAVE FOR IRGC 


ADD-ON-M*#.... 


LINE@ 


00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
0oo0B1 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00069 
00090 
00091 
00092 
00093 
00094 
00095 


LOC 


0019 
0019 
0019 
oo19 
o0o19 
0019 
0019 
C019 
0019 
0019 
0019 
Oo19 
0019 
0019 
0019 
0019 
0019 
00:9 
0019 
0019 
0019 
0019 
0019 


. PAGE 0003 


LINE 


=$90 
=$92 
=$200 
=$DA 
=$D1 
=$D 
=$100 
=$96 
=$D4 
=$D3 
=$FQA6 
=6FODS 
=$F143 
=$F19E 
=$FiB9 
=$FOD2 
=$F193 
=$F1CO 
=$F1i1AE 
=$F4A5 
=$9B 
=$9E 


ADN-ON-M*# 


LINE@ LOC 


00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00107 
00107 
00107 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
GO117 
00118 
00119 
00120 
oole1 
00122 
00123 


0019 
0019 
0400 
0400 
0400 
0400 
0400 
0401 
0403 
0405 
0406 
040C 
040D 
040E 
O40F 
040rF 
O40F 
O40F 
0410 
0412 
0414 
0417 
O41A 
O41C 
O41F 
0422 
0424 
0427 
0427 
0428 


ee 


... PAGE 0004 


CODE 


04 
oO 


31 


FF 
04 


FF 
04 


FF 


04 


LINE 


sYys 


#* £1024 
=156 iBASIC TOKEN VALUE 


+#ENTER COMPILED BASIC TEXT 


.BYT O 

.WOR INIT-2 

. WOR $10 

.BYT SYS 

.BYT ’¢€1039) ’,0,0,90 


i INITIALIZE INTERRUPT PROCESS 


INIT 


LDA #ZXtO0000000 
STA MEMMAP 
STA SFFFO 
JSR SETIRG 
LDA #4%10001000 
STA SFFFO 
JSR SETIRG 
LDA MEMMAP 
STA SFFFO 


JMP TIMC 


ADD-ON-M* 


LINE# LOC 


001235 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 


00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
001352 
00153 
00154 
00155 
001356 
00157 
00158 
00:59 
00160 


00162 
00163 
00164 
00165 
00164 
00167 
00168 
00169 
00170 
00171 


042B 
042D 
0430 
0432 
0435 
0437 
043A 
043C 
043F 


0440 
0440 
0440 
0442 
0442 
0443 
0444 
0446 
0446 
0448 
0443 
O44B 


CODE 


6éC 


85 


68 


85 


PAGE 0005 


17 


18 


00 
FO FF 


04 


72 


18 


17 


FE FF 


17 


18 


LINE 


SETIRG LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


#<IRQ@ 
$FFFE 
#>IRG@ 
SFFFF 
#<NMI 
$FFFA 
#>NMI 
SFFFB 


+PROCESS IRQ 


TR@ STA 
PLA 
PHA 
STA 


LDA 
STA 


TMPA iPRESERVE .A 


TMPPS 


#%00000000 
$FFFO 


sPUSH RETURN FROM INTERRUPT ADDRESS 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 


LDA 


iGO TO ROM 


JMP 


#>RTIP 
@<RTIP 
TMPPS 
iPUSH DUMMY STATUS 
TMPA iRESTORE .A 
IRQ SERVICE 


(SFFFE) 


;PROCESS NMI 


+PROCESS NMI 


NMI STA 
PLA 
PHA 
STA 


TMPA iPRESERVE .A 


TMPPS 


ADD-ON-M*# 


LINE@ LOC 


00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00164 
00185 
001846 
00187 
00188 
00189 
00190 


O45F 
O4SF 
0461 
0464 
0464 
0464 
0464 
0466 
0467 
0469 
046A 
046A 
046C 
046D 
044D 
O46F 
O46F 
O46F 
O46F 


0472 


6C 


48 


AS 
8D 


68 


40 


00 
FO FF 


04 


72 


18 


17 


FA FF 


09 
FO FF 


LINE 


LDA #%00090000 
STA SFFFO 
+>PUSH RETURN FROM INTERRUPT ADDRESS 
LDA @>RTIF 
PHA 
LDA #<RTIP 
PHA 


LDA TMPPS 
PHA iPUSH DUMMY STATUS 


LDA TMPA 


GO TO ROM IRQ@ SERVICE 


JUMP (SFFFA) 


+RETURN FROM INTERRUPT PROCESS 
RTIP PHA 


'MAP BACK TO ORIGINAL RAM 
LDA MEMMAP 
STA SFFFO 

+RESTORE OLD .A 


a 


PLA 


+s BACK TO USER 


RTI 


MONITOR 


LINE® LOC 

00209 O47A 
00210 O47A 
OO211 O47A 
OO2i2 O47A 
00213 O47A 
00214 047A 
00215 O47A 
00216 047A 
00217 O47A 
00218 047A 
00219 O47A 
00220 047A 
OO221 O4&7A 
O0222 047A 
00223 047A 
00224 O4&7A 
00225 0474 
00226 047A 
00227 047A 


00228 


LINE 


p PEE HE AE AEE HE EH HE SE HE TE AE HE EE EE EEE 


<OTHER> LOAD AND EXECUTE FROM DISK 


FOR SYNTAX & SEMANTICS SEE CBM KERNAL MANUAL 


COPYRIGHT (C) 1980 BY CBM 
5 FEAR AE IESE SE HE ME AE HE IE AE SE He HEE HE EE SE AE te EEE EE I HHH HE IEE HE AE de AE HH EE HE 


i# + 
;# KERNAL MONITOR % 
i * 
+*# ENTRY VIA CALL (JMP) OR BREAKPOINT (BRK) * 
ji # -—--FUNCTIONS--—-— * 
i%# <:> ALTER MEMORY * 
;# Cid ALTER REGISTERS % 
+%# CRD DISPLAY REGISTERS * 
i # <CM> DISPLAY MEMORY * 
i# <@> START EXECUTION OF CODE % 
i#*# <L> LOAD MEMORY & 
i ® <S> SAVE MEMORY * 
& C€@> DISK COMMAND tr 
t C#> ADD-ON CONTROL REGISTER * 
# * 
+t t 
* + 
% + 


CS Sa 


MONITOR..... 
LINE@ LOC 

00230 047A 
00231 O47A 
00232 047A 
00233 047A 
00234 047C 
00235 O4&7E 
00236 04680 
00237 0482 
00238 0484 
00239 0486 
00240 0488 
00241 0488 
00242 0488 
00243 0488 
00244 O46B 
00245 o048D 
002465 O48F 
00247 0490 
002486 0490 
00249 0490 
00250 0490 
00251 0492 
00252 0493 
00253 0495 
00254 0496 
00255 0498 
00256 0496 
00257 O49A 
00258 049C 
002359 O49E 
00260 O4A0 
00261 O4A0 
00262 O04A1 
00263 04A93 
00264 04A4 
00265 O4A4 
00266 O4AS 
00267 04A9 
00242 O04A9 
O0G269 O4AB 
0027C O4AD 
00271 O4AD 
00272 O4AD 
00273 O4AD 
00274 04B9 
00275 0O4B1 
00276 O4B2 
00277 O4B2 
00278 04B2 
00277 O4B2 
00280 O04B2 
00281 O4B4 
00282 O4B6 
002G3 0O4B8 


O4BA 


PAGE 0008 


CODE 


88 
04 
93 
SE 


14 
10 


91 


14 


06 


14 
62 


v2 
17 


90 


o9 


09 


05 


LINE 


;HeESHECALL ENTRY #888 
TIMC 

#<TIMB 
CBINV 
@>TIMB 
CBINV+1 
#MS34-NS1 
TMPC 

B3 


LDA 
STA 
LDA 
STA 
LDA 
STA 
BNE 


s HHRHHBREAK ENTRY #4844 


JSR CLRCH 
LDA #MS36-MS1 
STA TMPC 

CLD 


TIMB 


i; SAVE _Y.,. X,. As FLAGS. 


e 


LDX #5 
Bi PLA 
STA 
DEX 


BPL Bl 


PCH, X 


CINV 
INVL 
CINV+1 
INVH 


LDA 
STA 
LDA 
STA 


TSX 
STX 
CLI 


SP 


LDY 
JSR 


TMPC 
MSG 


LDA 
BNE 


#°R 
so 


é 


;HHREHERROR ENTRY HHH HH 


ERROPR JSR OUTQST 
PLA 
PLA 


s#CALL ENTRY 


s BRANCH ALWAYS 


i CLR CHANNELS 
i BREAK ENTRY 


AND PC 


+SAVE IR@ LOW 

i SAVE IRG HIGH 
*>SAVE ORIGINAL SP 
iCLEAR INTS 


i MESSAGE CODF 
;PRINT BREAK/CALL 


i DISPLAY REGS ON ENTRY 
i BRANCH ALWAYS 


5 #HHSHCOMMAND INTERPRETER ENTRY# 44% 


STRTM1=*—-1 
LDX 
iLDY 
STX 
STY 
JSR 


@<BUF 
#>BUF 
FNADR 
FNADR+1 
CRLF 


sPLACE TO PUT FILE NAME 


MONITOR 


LINE 


00285 
OO2R6 
00287 
00286 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00023 
00324 
0002 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 


LOC 


O4BD 
O4BD 
04CO 
04C2 
04C4 
04C4 
04C4 
04C4 
04C6 
04C8 
O04CA 
04CB 
O4CB 
O4CB 
O4CB 
04CD 
O4CE 
04D0 
04D1 
04D1 
04D2 
0402 
04D3 
04D7 
04D7 
04D9 
04D9 
O4D9 
04D9 
O4DC 
O4DE 
O4E1 
O4E3 
O4E6 
O04E6 
O4E46 
O4E6 
04E7 
04E8 
O4E9 
O4EB 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4EF 
O4F i 
O4F3 
O4F5 
O4F 7 
O4FA 
O4FD 
O4FE 


CODE 


DD 
DO 


85 


71 
20 
F9 


00 


D1 


04 


Bi 


16 
OF 


15 


1B 
ES 


09 


oS 


OS 


03 


00 


O2 
09 


LINE 
ST1 JSR BASIN ;READ COMMAND 
CMP #$20 | 
BEG ST1 i SPAN BLANKS 


i COMMAND INTERPRETER 


so LDX #0 

STX WRAP 

STX FNLEN 

TAY SAVE CURRENT COMMAND 
sPUT RETURN ADDRESS FOR COMMANDS ON STACK 


LDA #>STRiM1 


PHA 

LDA #cCSTRTM1 

PHA 

TYA i CURRENT COMMAND IN .A 
S1 CMP CMDS, X iIS IT THIS ONE? 

BNE S2 iNOTIT 

STA SAVX *>SAVE CURRENT COMMAND 


s+ INDIRECT JMP FROM TABLE 
LDA CMDS+1, X 
STA TMPO 
LDA CMDS+2. X 
STA TMPO+1 
JUMP (TMPO) 


i EACH TABLE ENTRY IS 3 LONG---SKIP TO NEXT 


S2 INX 
INX 
TNX 
CPX #CMDEND-CMDS 
BCC §S1 +LOOP FGR ALL COMMANDS 


i COMMAND NOT IN TABLE...LONK ON DIS¥F. 
+ COMMAND NAME CAN BE ANY LENCTH AND 
i HAVE PARAMETERS. 


LDX #0 iLENGTH TO ZERO 
S3 CMP #%D +> END OF NAME> 

BE@ S4 i YES... 

CMP #820 i BLANK? 

BEG S4 * YES 

STA BUF, x 

JER BASIN iGET NEXT 

INX i COUNT CHAR 

BNE S3 > AND CONTINUE 


MONITOR..... 
LINE@# LOC 

00340 0500 
00341 0500 
00342 0502 
00343 0503 
00344 0505 
00343 0505 
00346 0507 
00347 03509 
00348 OS50B 
00349 OSOE 
003350 0510 
00351 0510 
00352 O3512 
00353 0515 
00354 0515 
00356 0516 
003387 0517 
00358 03519 
00359 OS1A 
00360 051C 
00361 O51D 
00362 O51F 
00363 0520 
00364 0522 
00365 0523 
00366 0525 
00367 0526 
00368 0528 
00369 0529 
00370 0528 
00371 O052C 
00372 OS2E 
00373 OS2F 
00374 0531 
00376 0531 
00377 0533 
00378 0335 
00379 0537 
00380 0539 
00382 O53A 
00383 053C 
00384 053€ 


PAGE 0010 


CODE 


06 


0S 


OS 


OS 


06 


06 


06 


06 


07 


10 


11 


02 


oo 


O07 


LINE 


CMDS 


CMDEND 


PUTP 


SETR 


. BYT 


. BYT 
. WOR 
. BYT 


. BYT 
. WOR 
. BYT 
. WOR 
. BYT 
. WOR 
. BYT 
. WOR 
. BYT 
. WOR 
. BYT 
. WOR 


LDA 
STA 
LIA 
STA 
RTS 


ALTR 
“R’ 
DSPLYR 
“M/ 
DSPLYM 
ae od 

GO 

Le? 

LD 

‘Ss’ 

LD 

a: ee 
MAPPER 
“@’ 
DISK 


TMPO 
PCL 
TMPO+1 
CH 


#<FLGS 
TMPO 
#>FLOS 


1 COUNT 
;1S ZERO 


iWILL USE DEVICE #6 
;TRY TO LOAD COMMAND 
»BAD LOAD... 


;PASS LAST CHARACTER 
sGO DO IT 


*4LTER MEMORY 
*+ALTER REGISTERS 

+ DISPLAY REGISTERS 
i DISPLAY MEMORY 
*+START EXECJTION 
‘1UAD MEMORY 

i SAVE MEMORY 

+MAP MEMORY 


sDISK COMMAND (ALTERNATE } 


snOVE TMFO TO PCH, PcL 


+>SET TO ACCFSS REOS 


MONT TOR 


LINE®# LOC 


00385 
00386 
00387 


00389 
00390 
00391 
00392 
00393 
00394 
00395 


00404 
00405 
00406 
00406 
00406 
00407 
00407 
00407 


00409 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00418 
00419 
00420 
00421 


0540 
0542 
0344 


054D 
OS4F 
0550 
05352 
0553 
0555 


0558 
0558 
0558 
03559 
OS5A 
O55B 
OSSF 
0564 


PAGE 0011 


CODE 


85 
A9 
60 


48 
20 
66 
20 


11 
oS 


53 05 


81 


20 
SF 


OD 
@1 


90 


93 


09 


09 


05 
09 


03S 


06 


LINE 


STA TMPO+1 
LDA #35 
RTS 


;PRINTS ’: ’ OR ’; ’ BEFORE DATA TO PERMIT 
+ALTER AFTER ’M’ OR ’R’ COMMAND 


ALTRIT PHA +PRESERVE ALTER CHARACTER 
JSR CRLF 
PLA 
JSR BSOUT 


SPACE LDA #€20 sOUTPUT A SPACE 


. BYT $2c sSKIP TWO BYTES 
OUTGST LDA #’? i OUTPUT QUESTION 
.BYT $2C #SKIP TWO BYTES 


CRLF LDA #$D iDO CARRIAGE RETURN 


JMP BSOUT 


*>DATA FOR REGISTER DISPLAY HEADING 


REGK . BYT CR, $20, $20 ; 3 SPACES 


.BYT ’ PC ’,% IRQ ’,% SR AC XR YR SP’ 


i#DISPLAY REGISTER FUNCTION 


DSPLYR LDX #0 
D2 LDA REGK, X 
JSR BSOUT iPRINT HEADING 
INX 
CPX #DSPLYR-REGK . MAX LENGTH 
BNE D2 
LDA #7’; 
JSR ALTRIT +> ALLOW ALTER AFTER DISPLAY 
LDX PCH 


LDY PCL 
JSR WROA iPRINT PROGRAM COUNTER 


MONITOR. ... 
LINE® LOC 

00422 oO58c 
00423 OS8F 
00424 0571 
00425 0593 
00426 0596 
00427 0599 
00428 0599 
00429 0599 
00430 0599 
00431 O59B 
00432 059D 
004335 OSAO 
00434 OQS5A2 
00435 O5A5 
00436 O5A5 
00437 OSA5S 
00430 OSAS 
00439 03A7 
00440 OSA? 
00441 OSAB 
00442 OSAD 
00443 OSAF 
00444 OSAF 
00445 OSB1i 
00446 O5B3 
00448 OSB4 
00449 0O5B4 
00450 O5B4 
00451 0587 
00432 OSB9 
00433 OSBC 
00454 OSBC 
00455 OSBC 
0045e@ O58C 
0C457 OSBF 
00456 O5C! 
00459? OS5C1 
00460 O5C3 
00461 O5CS 
00462 05C7 
00463 O5C9 
00464 O3C9 
00465 OScCc 
00466 O5SCF 
00467 OSD1 
00468 O5D1 
00469 05D3 
00470 03SD6 
00471 0508 
00472 OSDA 


CODE 


. PAGE OO12 


0S 


06 
10 }~) 


OS 


06 


07 


06 


06 
08 


O05 


06 


LINE 


JSR 
LDX 
LDY 
JSR 
JSR 


i DISPLAY MEMORY 


DM STA 
LDY 
DM1 JSR 
LDA 
JSR 


i; INCREMENT 
INC 
BNE 
INC 
BNE 
INC 


DM2 DEG 
BNE 
RTS 


SPACE 

INVH 

INVL 

WROA SPRINT IRQ VECTOR 

SETR sSET TO PRINT .P..A,.X,. 
SUBROUT INE 

TMPC iBYTE COUNT 

#0 s INDIRECT INDEX 

SPACE sSPACE TWEEN BYTES 

CTMPO)Y 

WROB +WRITE BYTE OF MEMORY 

INDIRECT 

TMPO 

DM2 

TMPO+1 

DM2 

WRAP 

TMPC s}COUNT BYTES 

DM1 iUNTIL ZERO 


+DISPLAY MEMORY FUNCTION 


DSPLYM JSR 
BCS 
JSR 


RDOA 
ERRS1 
T2T2 


;READ START ADR 
*ERR IF NO SA 
iSA TO TMP2 


iALLOW USER TO TYPE JUST ONE ADDRESS 


JSR 
BCC 


LDA 
STA 
LDA 
STA 


DSP10 JSR 
DSP 1 JSR 
BEQ 


LDA 
JSR 
LDX 
LDY 
JSR 


RDOA 
DSP 10 


TMP2 
TMPO 
TMP 2+1 
TMPO+1 


T2T2 
STOP 
BEQS1 


#’: 
ALTRIT 
TMPO+1 
TMPO 
WROA 


iREAD END ADR 

iGOOD.. NO DEFAULT 

i DEFAULT LOW BYTE 
iDEFAVILT HI BYTE 

iSA TO TMPO. EA TO TMP2 


STOP KEY? 
i YES... BREAK LIST 


>ALLOW ALTER 


> 


iWRITE START ADDRESS 


Y. 


.§ 


MONITOR..... 
LINE@ LOC 

00473 OSDD 
00474 OSDF 
00475 OSE2 
00476 OSE4 
00477 OSES 
00478 OSE6 
00479 OSEG 
00480 O5E6 
00481) —(OSE7 
00482 OSE9 
00483 OS5SEB 
00484 OSED 
00485 OSEF 
00486 O5F1 
00487 O5F1 
00488 O5F2 
00489 OSF2 
00491 OSFS 
00492 OSFS5 
00493 OSFS 
00494 OSFB8 
00495 OSFA 
00496 OSFA 
00497 OSFD 
00498 OSFD 
00499 0600 
00500 0602 
00501 0602 
00502 0604 
00503 0606 
00504 0608 
00505 060A 
00506 060A 
00507 0O60D 
00509 O60F 
00510 O60F 
00511 OOF 
00512 O6t2 
003513 0614 
00514 0614 
00515 0616 
00516 0616 
00517 0616 
00518 0616 


00519 


0618 


PAGE 0013 


CODE 


A? 
20 
AS 
DO 


2O 
BO 


20 


20 
BO 


AS 
85 
AS 
85 


20 
DO 


20 
BO 


Ad 


85 


og 
$9 
16 
OB 


12 
10 
13 
11 
DB 


AD 


09 
FB 


31 


09 
FO 


10 
0B 
11 
07 


3A 
07 


oY 
DE 


08s 


14 


OS 


04 


07 


O05 


07 


0S 


07 


LINE 
LDA #8 iCOUNT OF BYTES 
JSR DM iDISPLAY BYTES 
LDA WRAP 
BNE BEQGS1 


+ CHECK FOR END OF DISPLAY 
SEC 
LDA TMP2 
SBC TMPO 
LDA TMP2+1 
SBC TMPO+1 
BCS DSP1 i END >= START 


BEQ@S1 RTS bA.0.K. EXIT 


ERRS1 JMP ERROPR i; SYNTAX ERRSR 


i ALTER REGISTER FUNCTION 


ALTR JSR RDOA iREAD NEW PC 


BCS ERRS1 *#ERROR...NO ADDRESS 
} 

JSR PUTP sALTER PC 

JSR RDOA *READ NEW IRG 

BCS ERRS1 >ERROR...NO ADDRESS 

LDA TMPO 

STA INVL ;ALTER IRQ ECTOR 

LDA TMPO+1 

STA INVH 

JSR SETR ;>SET TO ALTER R’S 

BNE. A4 i BRANCH ALWAYS 


*ALTER MEMORY —- READ ADR AND DATA 


ALTM JSR RDOA sREAD ALTE’ ADR 


BCS ERRS1 » IF SPACE, ERR 
' LDA 48 »- ALLOW 8 BYTES CHANGE 
; COMMON CODE FOR ’:’ Ae 7%.” 
a4 STA TMF NUMLER UF BYTES 70 CHANGE 


MONITOR...... PAGE 0014 


LINE# LOC COLE LINE 

00520 0618 20 146 07 AS JSR RDOB iREAD BYTE 
00521 0615 BO OE BCS A? iNONE... END OF LINE 
OO0S22 061D i 

003823 O061D A2 00 LDx #uU 

00524 O61F 81 10 STA (TMPO, X)> »>STORE IT AWAY 
00525 0621 i 

00526 0621 i INCREMENT STORE ADDRESS 

00527 0621 i 

0052G 0621 E46 10 INC TPO 

00529 0623 DO O02 BNE A& 

00530 0625 Eo 11 INC TMPO+1 

00531 0627 i 

00532 0627 Cé& 14 A6 D=C TMPC ;COUNT BYte 
00533 0629 DO ED BNE AS sUNTIL ZERO 
00534 062B i 

00535 O052B 60 A? RTS 

00537 062C sMAP MEMORY 


00538 062C i 
00539 O62C 20 16 07 MAPPER JSR RDOB 


00540 O0é62F 85 09 STA MEMMAP 

00541 0631 60 RTS 

00543 0632 + START EXECUTION FUNCTION 

00544 0632 i 

00545 0632 20 45 07 GO JSR RDOC +SEE IF DEFAULT 
00546 0635 FO O86 BEG @t ;YES...PC IS ADDRESS 
00547 0637 i 

00548 0637 20 09 07 JSR RDOA *+NO.. GET NEW ADDR 
90549 Oc3A BO 1F BCS ERRL +ERROR.. ADDFESS SCREWED UP 
00350 063C i 

00551 Cs3c 20 31 O05 JSR PUTP MOVE aODR TO P.C. 
005352 O62F i 

O0C353 C63F Aé& 06 G1 LDX SP 

00554 0641 %A Txs »URIG OR NEW SP VALUE TO SP 
00555 0642 i 

00556 0642 78 SEI sPREVENT DISASTER 
00557 0643 ; 

00558 0643 AS 07 LDA INVH 

00559 0645 85 91 STA CINV+) ;SET UP [RQ VECTOR 
00560 0647 A353 08 LDA INVLL 

00561 0649 85 90 STA CINV 

00562 064B i 

00563 064B >: GET FLAGS, PCH, PCL,. A. X,.Y 

00564 0648 i - 

003565 064B A2 00 LDX #0 


00566 O064D 85 00 €2 LDA PCH, X 


MONITOR... 

LINE# LOC 

00567 O64F 
005668 0450 
00569 0651 
00370 0633 
00571 0655 
00572 0655 
00573 0655 
00574 0655 
00575 0653 
00576 0656 
00377 06357 
00578 0658 
00579 0659 
00580 O465A 
00582 0658 
00584 0O65E 
00585 O6S5E 
00586 O65E 
00587 0660 
0OOS88 0662 
00589 0643 
00590 0663 
00591 0666 
00592 0668 
00593 0668 
00594 O66A 
00395 064C 
00396 066C 
00397 O66E 
00598 0670 
003899 0670 
00600 0673 
00601 0675 
00602 0675 
00603 0677 
00604 0679 
00605 0679 
00604 067B 
00607 067D 
00608 O67E 
00609 04680 
00610 0480 
00611 0682 
00612 0664 
00613 06864 
00614 0684 
00615 06864 
00616 0686 
00617 0688 


48 
ES 
EO 
DO 


68 
A8 
68 
AA 
68 
40 


4c 


AO 
64 
88 


20 
FO 


C9 
FO 


C9 
DO 


20 
FO 


Cc? 
FO 


91 
E6 
cs 


FC 
DO 


AS 
c9 
DO 


CODE 


06 
F8 


AD 


01 
D4 


45 


1c 


20 
F7 


2a 
EB 


45 
OF 


22 
14 


DA 
D1 


10 


D9 
EC 


15 
4C 
E4 


.. PAGE 0015 


04 


07 


07 


LINE 


PHA 
INX 
CPX 
BNE 
i INTERRUPT 
sFROM DATA 


é 

PREND PLA 
TAY 
PLA 
TAX 
PLA 
RTI 


ERRL JMP 


i EVERYBODY ON STACK 
#6 
G2 
RETURN SETS EVERYBCDY UP 
ON STACK 
ERROPR > SYNTAX ERROR JUMP 


is LOAD RAM FUNCTION 


a 


LD LDY 
STY 
DEY 


L1 JSR 
BEG 


CMP 
BEQ 


CMP 
L2 BNE 


L3 JSR 
BEG 


cmMP 
BEG 


STA 
INC 
INY 
CPY 
L4 BEQ 
BNE 


iSEE IF WE 


LS LDA 
CMP 
BNE 


#1 
FA +DEFAULT DEVICE #1 
i. YO TO COUNT NAME LENGTH 
RDOC i DEFAULT? 
LS i YES... TRY LOAD 
&/ 
L1 i SPAN BLANKS 
*’" iSTRING NEXT? 
ERRL iNO FILE NAME . 
RDOC iGET CHARACTER OF NAME 
LS i END... ASSSUME LOAD 
#/" s;END UF STRING? 
L& »>YES...COULD STILL BE ‘’L’ 
(FNADR)Y >STORE NAME 
FNLEN 
#16 iMAX FILE NAME LENGTH 
ERRL ;F ILE NAME TOO LONG 
L3 > BRANCH ALWAYS 
GOT A LOAD 
SAVX ;GET LAST COMMAND 
e/L 
L2 >NO. NOT A LOAD. ERROR 


UR 


MONITOR...... PAGE 0016 


LINE®# LOC CODE LINE 


00618 O68A i 


00619 O68A 4C 96 O07 JMP LOAD i YES. ..DO LOAD 
00620 068D 3 

00621 O68D 20 45 07 Le JSR RDOC sMORE STUFF? 
00622 0690 FO F2 BEG LS iNO... DEFUALT LOAD 
00623 0692 ; 

00624 0692 C9 2C CMP #’, i; DELEIMETER? 
00625 0694 DO DS L9 BNE L2 iNO... BAD SYNTAX 
00626 0696 i 

00627 0696 20 16 07 JSR RDOB + YES. ..GET NEXT PARM 
00628 06997 BO 3E BCS L15 *#NOT GOOD 

00629 O69R i 

00630 0O469B 85 D4 STA FA 

00631 069D i 

00632 O069D 20 45 07 JSR RDOC sMORE PARMS? 
00633 O6A0 FO E2 BE@ LS iNO... DEFAULT LOAD 
00634 O6A2 ; 

00635 O6A2 C9 2c CMP #’, is DELIMETER? 
00636 O6A4 DO EE Li2 BNE L9 +NO...BAD SYNTAX 
00637 O6A6 i 

00638 O6A6 20 O9 O07 JSR RDOA i START ADDRESS? 
00639 O6A9 BO 2E BCS L15 #NO... BAD 

00640 O6AB i 

00641 O6AB 20 FY 06 JSR TeT2 iPRESERVE START 
00642 O6AE 20 71 OF JSR BASIN +; DELIMETER? 
00643 O6B1 C9 2c CMP #°, 

00644 O6B3 DO EF L13 BNE Lie iNO... 

00645 O6B5 20 09 07 JSR RDOA i+ TRY TO READ END 
00646 O6BS BO IF BCS L15 i NONE. . . ERROR 
00647 O6BA i 

00648 O6BA ;SET UP END SAVE ADDRESS 

00649 O6BA ; 

00650 OQO6BA AS 10 LDA TMPO 

00651 O6BC 85 OE STA EAL 

00652 O6BE AS 11 LDA TMPO+1 

00653 O06CO 8&5 OF STA EAH 

00654 06C2 20 FI 06 JSR T2T2 


00655 06C5 ; 
00656 O06C5 20 71 09 L20 JSR BASIN 


00657 O04C8 C9 20 CMP #%20 

00658 O6CA FO F9 BE@ L20 + SPAN BLANKS 

00659 O6CC i 

00660 O6CC C9 OD CMP @#CR 

00661 O6CE DO E3 L14 BNE L193 iMISSING CR AT END 

00662 O6D0O AS 15 LDA SAVX i WAS COMMAND SAVE? 

00663 O6D2 C9 53 CMP #°S 

00664 0O6D4 DO FS BNE L14 iNO...LOAD CAN‘T HAVE PARMS 
00665 O6D6 4C 2D 08 JMP SAVE 


00666 06D9 i 
00667 O6D9 4C AD 04 L15 JMP ERROPR 


MONITOR 


LINE®# LOC 


00669 
00670 
00671 
00672 
00673 


00675 
00676 
00677 
006786 
00679 
00680 
00661 
00682 
00683 
00684 
00685 
00686 


00688 
00689 
00690 
00691 
00692 
00693 
00694 
00695 
00696 


00698 
00699 
00700 
00701 
00702 
00703 
00704 
00705 
00706 
00707 
00708 
00709 


00711 


O6DC 
O6DC 
O6DC 
O6DD 
O6E0 


O6E 1 
O6E1 
06E1 
O6E1 
O6E2 
06E3 
O6E4 
O6ES 
O6E6 
O6E9 
O6EA 
O6EB 


O6ED 
O6ED 
O6ED 
OSED 
O6EE 
O6FO 
O6F2 
O6F4 
O6F6 


O6F9 
O6F9 
O6F9 
O6FB 
O6FD 
O&6FE 
0700 
0702 
0703 
0705 
0706 
0708 


0709 


PAGE 0017 


CODE 


BA 
20 
98 


18 


90 
69 


4c 


El 


ED 


OF 


02 


11 


OF 


11 


F3 


06 


06 


09 


LINE 


i#WRITE ADR FROM TMPO STORES 


WROA TXA i HI-BYTE 


JSR WROB 
TYA »LOW-BYTE 
iWRITE BYTE --- A = BYTE 


;UNPACK BYTE DATA INTO TWO ASCII 

i CHARACTERS. A=BYTE; X, A=CHARS 

WROB PHA 
LSR A 
LSR A 
LSR A 
LSR A 
JSR A 

TAX 

PLA 

AND #S0F 


SCII i CONVERT TO ASCI1 


i CONVERT NYBBLE IN A 70 ASCII AND 
+PRINT IT 


ASCII CLC 
ADC #$F6 
BCC ASC1 
ADC #%06 
ASC1 ADC #$34 
JMP BSOUT 


+ EXCHANGE TEMPORARIES 


s 

T2T2 LDX #2 

T2T21 LDA TMPO-1, X 
PHA 
LDA TMP2~1, X 
STA TMPO-1, X 
PLA 
STA TMP2-1, X 
DEX 
BNE T2T21 
RTS 


;READ HEX ADR. RETURN HI IN TMPO, 


MONITOR...... PAGE 0018 


LINE# LOC CODE LINE 

00712 0709 +LO IN TMPO+1, AND CY=1 

00713 0709 i IF SP CY=0 

00714 0709 ; 

00715 0709 20 16 07 RDOA JSR RDOB iREAD 2-CHAR BYTE 
00716 0O70C BO 07 BCS RDOA2 i SPACE 

00717 O70E 895 11 STA TMPO+1 

00718 0710 20 16 O07 JSR RDOB 

00719 0713 85 10 STA TMPO 

00720 O715 40 RDOA2 RTS 

00721 0716 sREAD HEX BYTE AND RETURN IN A 

00722 0716 s+ AND CY=0 IF SP CY#1 

00723 0716 AX 00 RDOB LDA #0 i; SPACE 

00724 0718 6D OO Ol STA BAD iREAD NEXT CHAR 
00725 071B 20 45 07 JSR RDOC 

00726 O71E FO 19 BEQ@ RDOB4S iFAIL ON CR 
00727 0720 C9 20 CMP #’ i BLANK? 

00728 O722 FO F2 BE@ RDOB i SPAN BLANKS... 
00729 0724 5 

00730 0724 20 3A 07 JSR HEXIT + CONVERT TO HEX NYBBLE 
00731 0727 OA ASL A 

00732 0728 OA ASL A 

00733 0729 OA ASL A 

00734 O72A OA ASL A 

00735 0O72B 8D OO O01 STA BAD 

00736 O72E 20 45 07 JSR RDOC +>2ND CHAR ASSUMED HEX 
00737 0731 FO 06 BEG RDOB4 iFAIL ON CR 
00738 0733 20 3A 07 JSR HEXIT 

00739 0736 OD OO O1 ORA BAD 

00740 0739 i 

00741 0739 60 RDOB4 RTS 

00743 073A i CONVERT ASCII CHAR TO HEX NYBBLE 
00744 073A i 

00745 O73A C9 3A HEXIT CMP #8$3A 

00746 O73C 08 PHP i SAVE FLAGS 
00747 0O73D 29 OF AND #$0F 

00748 O73F 28 PLP 

00749 0740 90 02 BCC HEXO9 30-9 

00750 0742 69 08 ADC #8 *+ ALPHA ADD 8+CY=9 
00751 0744 60 HEXO9 RTS 

00753 0745 iGET CHARACTER AND TEST FOR CR 


007354 0743 i 

00755 0745 20 71 09 RDOC JSR BASIN 

00756 0748 C9 OD CMP #s0D iIS IT ACR . 
00757 O74A 60 RTS +>RETURN WITH FLAGS 


MONITOR...... PAGE 0019 


LINE#® LOC CODE LINE 

00759 0O74B *SEND DISK COMMAND OR READ STATUS 

00760 074B i 

00761 O74B A? OO DISK LDA #0 #CLEAR STATUS @ I/O BEGI?: 
00762 O074D 85 96 STA STATUS 

00763 O74F i 

00764 O74F 20 45 07 JSR RDOC #SEE IF STATUS CHECh 
00765 0752 FO 22 BEQ@ DISK20 ;VES 

00766 0754 ; 

00767 O754 48 PHA 

00768 0755 A9 0B LDA #8 sFLOPPY IS DEVICE #2 
00769 0757 20 9F 09 JSR LISTN ; TELL FLOPPY TO RECEIVE 
00770 O75SA AQ? SF LDA #15+%60 

00771 O75C 20 AF O09 JSR SECND 3ON COMMAND CHANNEL 
00772 O75F i 

00773 O75SF 68 PLA 

00774 0760 A6é 96 LDX STATUS i ERROR? 

00775 0762 10 06 BPL DISKLS sNO... OK 

00776 0764 i 

00777 0764 4C C6 08 DISKS JMP ERRORS iDEVICE NOT PRESENT 
00778 0767 i 

00779 O767 20 71 O09 DISK10 JSR BASIN +>GET A CHARACTER 
00780 076A C9 OD DISK1S CMP #¢D i SEE IF END 

00781 C74&C O8 PHP i SAVE FOR LATER 
00782 076D 20 BF O09 JSR CIOUT +QUT TG FLOPPY 
00783 0770 28 PLP * END? 

00784 0771 DO F4 BNE DISK10 iNO. .. CONTINUE 

00785 0773 i 

00785 0773 4C CF O09 JMP UNLSN ;YES...FLOPPY DONE 


00787 C0776 i 
00788 0776 20 53 05 DISK20 JSR CRLF 


00789 0779 A9 08 LDA #8 i;FLOPPY IS DEVICE #8 
00790 O77B 20 DD 09 JSR TALK +> TELL FLOPPY TO SPEAK 
90791 O77E AQ9 GF LDA #15+%60 

00792 0780 20 ED 09 JSR TKSA ; FROM ERROR CHANNEL 
00793 0783 i 

00794 0783 AS 96 LDA STATUS i AN ERROR? 

00795 0785 30 DD BMI DISKS i YES... 

00796 0787 ; 

00797 0787 20 FD 09 DISK25 JSR ACPTR iGET A CHARACTER 
0C798 O78A C9 OD CMP #$€D iSEE IF END 

00799 O76C O8 PHP i TEST LATER 

00800 078D 20 81 09 J!SR BSOUT ;O0UT TO SCREEN 

00801 0790 28 PLP ; END? 

008C2 0791 DO F4 BNE DISK25 iNO .. 


00803 0793 4C OD OA JM? UNTLK i YES.. FLOPPY DONE 


LOAD FUNCTION 


LINE# LOC 

00805 0796 
00806 0796 
00807 0796 
0080s 0796 
00809 0796 
00810 0796 
00811 0796 
00812 0796 
00813 0796 
00814 0796 
00815 0796 
00817 0796 
00818 0796 
00819 0798 
00820 079A 
00621 079A 
00622 079C 
00823 O79E 
00824 07A0 
00825 0O7A0 
00826 07A3 
00827 O7A3 
00828 07A3 
00829 O7A3 
00830 07A3 
00831 07A3 
00832 O7AS 
00833 07A7 
00834 07A7 
00835 O7A9 
00836 07AB 
00837 0O7AB 
00838 O7AE 
00339 O7AE 
00840 0781 
00841 0O7B4 
003842 07B4 
00843 0O7B6 
00844 07B9 
00845 0O7BB 
00846 O7BE 
00847 O7BE 
00848 0701 
990849 07C3 
00850 07C5 
00851 0O7C5 
00852 07C7 
00853 07C8 
00834 07C9 
00855 0O7CB 
00856 O7CE 


00857 


07D0 


A? 
85 


AS 
C9 
BO 


4c 


A? 
85 


A4 
DO 


ac 


20 


20 


AS 
20 
AS 
20 


20 
85 
85 


AS 
4A 
4A 
BO 
20 
85 
85 


CODE 


00 
96 


D4 
04 
03 


D2 


60 
D3 


D1 
03 


OD 
1B 


D4 
DD 
D3 
ED 


FD 
OE 
OA 


96 


39 
FD 
OF 
OB 
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os 


0o8 


08 


OA 


09 


09 


09 


O09 


LINE 


bE TERETE TE Se HE HE HE HE AE HE A SE AE 6 IE AE HE HE TE A EE HE a HE EE HE HE HE 
i# LOAD RAM FUNCTION 

i; # 

i* LOADS FROM CASSETTE 1 OR 2. OR 
*# TEEE BUS DEVICES >=4 TO 31 AS 

i# DETERMINED BY CONTENTS OF 

i# VARIABLE FA. VERIFY FLAG IN .A 
i# HIGH LOAD RETURN IN X,Y. 

i# .A=O PERFORMS LOAD, <> IS VERIFY+ 
i tt # 
5 PERE TEE AE HE HE HE He HE AE HE HE HE TE A He HES HE SE HE HE EE A aE a HE Ht 


zxekRRe KK & 


LOAD 
LDA #0 
STA STATUS 
LDA FA iCHECK DEVICE NUMBER 
CMP #4 
BCS LD2O 
LD10 JMP ERROR9 *+BAD DEVICE # 
LD20 


iLOAD FROM CBM IEEE DEVICE 


LDA #%60 +; SPECIAL LOAD COMMAND 

STA SA 

LDY FNLEN iMUST HAVE ILE NAME 

BNE LD25 ; YES... OK 

JMP ERRORS *>MISSING FIi.E NAME 
LD25 JSR LUKING ; TELL USER LOOKING 

JSR OPENI ;OPEN THE FILE 

LDA FA 

JSR TALK i ESTABLISH THE CHANNEL 

LDA SA 

JSR TKSA >TELL IT TO LOAD 

JSR ACPTR iGET FIRST BYTE 

STA EAL 

STA STAL 

LDA STATUS i> TEST STATUS FOR ERROR 

LSR A 

LSR A 

BCS LDIYO iFILE NOT “OUND... 

JSR ACPTR ° 

ST4 ECAH 

STA STAH 


LOAD FUNCTION 


LINE# LOC 

00858 07D2 
00859 O7D2 
00860 07D5 
00861 O7D5 
00862 07D7 
00863 07D9 
00864 0O7DB 
00865 0O7DB 
00866 O7DE 
00867 O7E0O 
00868 0O7E0 
00869 O7E3 
00870 O7E3 
00871 O7E6 
00872 O7E7 
00873 O7E9 
00874 O7EA 
00875 O7EB 
00876 O7ED 
00877 O7EE 
00878 O7FO 
00879 O7Fe2 
OO880 0O7F4 
0Oosst O7FS& 
ooseB2 O07F8 
00883 0O7FA 
00884 O7FC 
oosesS O7FC 
90886 O7FF 
00887 oO802 
0OOo8sS 0804 
0oose9 0804 
00890 0807 
00891 0807 
00892 0807 
00893 0808 
00894 0808 
00895 0808 
00846 0808 
90697 O80A 
00898 O80C 
00899 = O80C 
00901 O8dD 
00902 0600 
00903 OB0OD 
00904 O80D 
00905 0O8o0D 
009064 O80D 
00907 OGOF 
00908 O8i2 


re ee er) 


CODE 


20 


A? 
25 
85 


20 
DO 


4c 


20 
AA 
AS 
4A 
4A 
BO 
BA 
AO 
91 
ES 
DO 
E6 
24 
90 


20 
20 
90 


4C 


18 


Ab 
A4 


60 


AO 


28 


FD 
96 
96 


AA 
03 


78 


FD 


96 


E8 


00 
OE 
OE 
02 
OF 
96 
D9 


oD 
BA 
03 


C3 


OE 
OF 


oc 
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08 


O68 


OB 


09 


OA 
08s 


08 


20 62 09 


AS 


D1 


LINE 


JSR LODING >TELL USER '.OADING 
LD40 LDA #$FD iMASK OFF T SMEOUT 
AND STATUS 
STA STATUS 
JSR STOP +>STOP KEY? 
BNE LD45 iNO... 
JMP BREAK iSTOP KEY FRESSED 
LD45 JSR ACPTR +>GET BYTE OFF IEEE 
TAX 
LDA STATUS >WAS THER: A TIMEOUT? 
LSR A 
LSR A 
BCS LD40 i YES... TRY AGAIN 
TXA 
LDY #0 
STA “(EALDY 
LDé60 INC EAL i INCREMENT STORE ADDR 
BNE L.Dé4 
INC EAH 
LD64 BIT STATUS s EOI? 
BVC LD40 iNO... CONTIiWUE LOAD 
JSR UNTLK i+CLOSE CHANNEL 
JSR CLSEI ;CLOSE THE FILE 
BCC LD1i80 is BRANCH ALWAYS 
LD9O JMP ERROR4 s;FILE NOT FOUND 
LDi180 CLC iGOOD EXIT 


iSET UP END t.OAD ADDRESS 
LvoX EAL 
~DY EAH 


LD190) RTS 


; SUBROUTINE TO PRINT TO CGNSOLE: 


i SEARCHING CFOR NAME] 


LUA ING 
LDY #MS5S-MS1 i "SEARCHING" 
JSR MSG 
LDA FNLEN 


LOAD FUNCTION 


LINE# LOC 

00909 0814 
00910 0816 
00911 0818 
00913 O81B 
00914 081B 
00915 0O81B 
00916 O81B 
00917 081D 
00918 O8iF 
00919 O822 
00920 0823 
00921 O825 
00922 0827 
00923 0827 
00925 0828 
009246 0828 
00927 0828 
00928 0828 
00929 0828 


00930 


082A 


CODE 


FO 
AO 
20 


AO 


00 


81 


Di 


39 
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09 


09 


4C 62 09 


LINE 


BEQ LD115 
LDY #MS6-MS1 i "FOR" 
JSR MSG 


s SUBROUTINE TO OUTPUT FILE NAME 


OUTFN 
LDY 
LD110 LDA 
JSR 
INY 
CPY 
BNE 


LD115 RTS 


#0 
(FNADR)Y 
BSOUT 


FNLEN 
LD110 


s SUBROUTINE TO PRINT: 


’ 


i LOADING/VERIFING 


LODING LDY 
LD410 JMP 


#MS10-MS1 + ASSUME ‘LOADING’ 
SPMSG 


SAVE FUNCTION. 


LINE# LOC 

00932 O082D 
00933 O82D 
00934 O062D 
00935 O82D 
00936 O82D 
00937 O082D 
00938 0O82D 
00939 O82D 
009740 082D 
00941 O82D 
00943 O082D 
00944 O82F 
00945 0831 
00946 08633 
00947 0833 
00948 0836 
00949 0836 
C0950 0836 
00951 0838 
009352 O83A 
00953 o083c 
00954 O83E 
00955 O83E 
00956 0841 
00957 0841 
00958 08644 
00959 0847 
00960 0849 
00961 O84C 
00962 O84E 
00963 O85i 
00964 0853 
00965 0855 
00966 0857 
00967 0859 
00768 O85B 
009569 O85E 
00970 0840 
00971 0863 
00972 0864 
00973 0866 
00974 0868 
00975 O86A 
00976 oO8é6C 
00977 O86E 
00978 0870 
00979 0873 
00980 0876 
00981 0878 
00982 0878 
00983 087B 
00984 087D 


CODE 


.... PAGE 


08 


» O8 


OA 
08 


09 


o9 


09 


09 


09 
09 


08 


0023 


LINE 


5 MERE FE TEE ETE TE HE HE Ht te HE TE HE ae EH HE EE HE He te a He ee ee ee ee 


i#* SAVE * 
> * 
+# SAVES TO CASSETTE 1 OR 2, OR + 
i# TEEE DEVICES 4>=N>=31 AS SELECT-+* 
'* ED BY VARIABLE FA. # 
> 3 
i*#START OF SAVE IS MEMSTR... END OF + 
+#SAVE IS .X,.Y # 


> ETRE TE ETE EE HE SE HE HE EE HE HE EE ee EE 


SAVE LDA FA ###MONITOR ENTRY 

CMP #4 

BCS SV20 
SV10 JUMP ERROR? ;BAD DEVICE # 
SV20 

LDA #$61 

STA SA 

LDY FNLEN 

BNE SV25 

JUMP ERRORS i MISSING FILE NAME 
SV25 JSR OPENI 

JSR SAVING 

LDA FA 

JSR LISTN 

LDA SA 

JSR SECND 

LDY #0 

LDA STAH 

STA SAH 

LDA STAL 

STA SAL 

JSR CIOUT 

LDA SAH 

JSR CIOUT 
SV30 SEC 

LDA SAL 

SBC EAL 

LDA SAH 

SBC EAH 

BCS SV50 ; HAVE REACHED END 

LDA (SAL)Y 

JSR CIOUT 

JSR STOP 

BNE SV40 


BREAK JSR CLSEI 
LDA #0 
SEC 


SAVE FUNCTION 


LINE# LOC 


00985 
00986 
009867 
00988 
00989 
00990 
00991 
00992 


00994 
00993 
00996 
00997 
00998 
00999 
01000 
01001 
01002 
01003 
01004 
01005 


01008 
01009 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 


O87E 
O87F 
O87F 
0881 
0esa 
osss 
0ess 
0887 


O88A 
oBsc 
O8B8E 
0890 
0893 
0895 
0897 
0899 
0B9C 
OB9F 
O8S9F 
O8AO 


O8A1 
OBA1 
O8Al 
OBA1 
OBA1 
OBA! 
OBA3 
OBAS 
O8A9 
O8A9 


CODE 


AO 
20 
20 


60 


... PAGE 0024 


oc 
OD 


DC 
CF 09 


9F 09 


AF 09 
CF 09 


41 
62 09 
1B 08 


LINE 
RTS 
SV40 INC SAL 
BNE INCR 
INC SAH 
INCR 
BNE SV30 


SV50 JSR UNLSN 


CLSEI BIT SA 
BMI CLSEI2 
LDA FA 
JSR LISTN 
LDA SA 
AND #%EF 
ORA #$E0 
JSR SECND 
JSR UNLSN 


5 
CLSET2 CLC 
RTS 


i; SUBROUTINE TO OUTPUT: 
i ‘SAVING <FILE NAME> ’ 


SAVING 
LDY #MS11-MS1 i ‘SAVING ’ 
JSR MSG 
JSR OUTFN iCFILE NAME> 
SAV100 RTS 


ERROR 


LINE# 


01019 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01028 
01029 
01030 
01031 
01032 
01033 
01034 
01035 


01037 
01038 
01039 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01048 
01049 
01050 
01051 
01052 
01053 
C1054 
01055 
01056 
010357 
01058 
010359 
01060 
01061 
01062 
01063 
01064 
01065 
01066 
01067 
01068 
01069 


... PAGE 0025 


9B 
09 
91 09 


00 
GE 


O1 


O02 


03 


04 


OS 


06 


07 


08 


09 


91 O09 


oO 


62 09 


HANDLER... 
LOC CODE 
OBAA 
OBAA 
OBAA 
OBAA 
OBAA 
OBAA 
OBAA 
OBAA 
OBAA AS 
osaAc C9 
OBAE DO 
OSBO 08 
O8B1 20 
O8B4 A9 
OBB& 85 
OSBS 28 
O8B9 60 
O8SBA 
O8BA 
O8BA 
O8BA 
O8BA 
OBBA 
O8BA 
O8BA 
OBBA A? 
OBBC 2C 
OBBD A9 
O8BF 2C 
osco Ag? 
osc2 2c 
Oosc3s A? 
oscsS 2c 
OB8Cé6 AI 
oscse 2c 
oscg9 A9 
OscB 2c 
oecc A9 
OSCE 2C 
OSCF A9 
OsDi 2c 
OBD2 A9 
O8D4 
O8D4 48 
OBDS 20 
oeDs 
OBDS AO 
OBDA 
OBDA 20 
O8DD 68 


LINE 


5 MEME EE HE HE HE HEE HE EE HE EE ae 


;# STOP -~ CHECK STOP KEY FLAG AND 
i*# RETURN Z FLAG SET IF FLAG TRUE. 
i# ALSO CLOSES ACTIVE CHANNELS AND 
i*% FLUSHES KEYBOARD QUEUE. 

i'# ALSO RETURNS KEY DOWNS FROM LAST 
i# KEYBOARD ROW IN . A. 


ek KM % 


“t 


§ PETE AEE TE HE FE TEE EE EE He HE ETE SE EEE HHH 


STOP 


STOP2 


LDA STKEY 


CMP #$EF 


BNE STOP2 


PHP 


JSR CLRCH 


LDA #0 
STA NDX 
PLP 
RTS 


1 VALUE OF LAST ROW 
»CHECK STOP KEY POSITION 
iNOT DOWN 

i CLEAR CHANNELS 


iFLUSH QUEUE 


5 RESET EEE EE TE EE HE EE ae EE 


ra 


i# ERROR HANDLER 


3% 


i# WITH ERROR # IN .A AND CARRY. 


3% 


x we kok ok 


> MME RAE HEHEHE 


ERROR1 
ERROR2 
ERRORS 
ERROR4 
ERRORS 
ERRORS 
ERROR7 
ERRORS 


ERROR9 


LDA #1 
. BYT $2C 
LDA #2 
.BYT $2C 
LDA #3 
. BYT $2C 
LDA #4 
.BYT $2C 
LDA #5 
.BYT $2C 
LDA #6 
.BYT $2C 
LDA #7 
. BYT $2C 
LDA #8 
.BYT $2C 
LDA #9 


PHA 


JSR CLRCH 


LDY #MS1-MS1 


JSR MSG 
PLA 


+ TOO MANY FILES 
+#FILE OPEN 

»>FILE NOT OPEN 
;FILE NOT FOUND 

i DEVICE NOT PRESENT 
sNOT INPUT FILE 
+NOT OUTPUT FILE 
»MISSING FILE NAME 
i BAD DEVICE # 


; ERROR NUMBER ON STACK 
;RESTORE 1/0 CHANNELS 


+>PRINT “CBM I/O ERROR @#” 


ERROR 


HANDLER...... PAGE 0026 


LINE# LOC 


01070 
01071 
01072 
01073 
01074 
01075 
01076 


O8SDE 
O8DF 
O6E1 
OBE4 
O8E4 
O8ES 
OBES 


CODE 


48 
09 30 
20 81 09 


68 
38 
60 


LINE 


PHA 
ORA #%$30 
JSR BSOUT 


EREXIT PLA 
SEC 
RTS 


iMAKE ERROR # ASCII 
sPRINT IT 


MESSACES.... 
LINE®# LOC 

01078 OB8E7 
01078 O8ES 
01078 O8F2 
01079 O8F3 
01079 OB8F4 
01079 O8FD 
01080 O8FE 
o10so0 0901 
01081 09702 
01081 09703 
01081 O970D 
01082 O90E 
01082 0916 
01083 0917 
01083 O91F 
01084 0920 
01084 0921 
01084 0927 
01085 0928 
01085 0929 
010685 O92F 
01084 0930 
01086 0931 
01086 0939 
01087 O93A 
01087 0O93B 
01087 0940 
01088 09741 
01088 09742 
01086 0944 
01089 0945 
01089 O9746 
01089 O95B 
01090 O95C 
01090 095D 
01090 O961 
01092 0962 
01093 0962 
01094 0962 
01095 0962 
01096 0962 
01097 0965 
01098 09646 
01099 0968 
01100 O96B 
01101 O96C 
01102 096D 
01103 O96F 


01104 


CODE 


2F 


45 


4F 


92 


20 


4E 


4F 


41 


45 


4F 


4B 


2A 


S32 


E7 


7F 
81 


F3 


PAGE 0027 


v2 


08 


09 


LINE 


MS1 


MSS 


MSé 


MS7 


MS8 


MS9 


MS11 


MS21 


MS17 


MS18 


MS34 


MS36 


. BYT 


. BYT 


. BYT 


. BYT 


. BYT 


. BYT 


. BYT 


. BYT 


. BYT 


BYT 


. BYT 


. BYT 


. BYT 


$D, 


‘1/9. ERROR ’, $A3 


$D, ‘SEARCHING ’, AO 


‘FOR ’, $AO 


$D, 


‘PRESS PLAY’, AO 


‘& RECORD’, AO 


‘ON TAPE ‘’, $A3 


$D, 


$D, 


$D. 


$D, 


$D, 


$D 


$D, 


‘LOADIN’, $C7 


‘SAVING’, $AO 


‘VERIFYIN’, $C7 


“FOUND ’. $40 


‘OK’, $8D 


‘##eCBM MONITOR 1. O8 ue’, $8D 


‘BREA’, $CB 


»PRINT MESS&4GE TO SCREEN ONLY IF 


*>OUTPUT ENABLED 


SPMSG 
MSG 


MSG10 


LDA MS1,Y 


PHP 
AND 
JSR 
INY 
PLP 
BPL 
CLC 
RTS 


#$7F 


BSUUT 


MSG 


MESSAGES. ... 
LINE# LOC 

01106 O971 
01107 0971 
01108 0971 
01109 0973 
01110 0976 
O1111 0979 
01112 O97A 
01113 097¢ 
01114 097F 
01115 0980 
O1117 0981 
01118 0981 
01119 0982 
01120 09784 
01121 0987 
01122 0988 
01123 O98B 
01124 O98D 
01125 0990 
01127 0991 
01128 0993 
01129 0996 
01130 0999 
01131 0993 
01132 099E 
01134 O099F 
01135 O9A1 
01136 09A3 
01137 O9A6 
01138 09A9 
01139 O9AB 
01140 O9AE 
01142 O9AF 
01143 O9B0 


01144 


O9B2 


48 


8D 


CODE 


oo 
CF 


09 
FO 


00 
FO 


D2 


FO 


00 
FO 


0028 


FF 
FF 


FF 


FF 


FF 


FF 


F2 


FF 


FF 
FO 


FF 


FF 


LINE 


BASIN 


BSOUT 


CLRCH 


LISTN 


SECND 


LDA 
STA 
JSR 
PHA 
LDA 
STA 
PLA 
RTS 


PHA 
LDA 
STA 
PLA 
JSR 
LDA 
STA 
RTS 


LDA 
STA 
JSR 
LDA 
STA 
RTS 


PHA 


STA 


#0 
$FFFO 
6FFCF 


MEMMAP 
$FFFO 


#0 
$FFFO 


SFFD2 
MEMMAP 
$FFFO 


#0 
$FFFO 
RCLRCH 
MEMMAP 
$FFFO 


FA 

#0 
SFFFO 
RLISTN 
MEMMAP 
$FFFO 


#0 
SFFFO 


MESSAGES 


LINE# LOC 


01145 
01146 
01147 
01148 
01149 


01151 
01152 
01153 
01154 
01155 
01156 
01157 
011356 


01160 
01161 
01162 
01163 
01164 
01165 
01146 


01168 
01169 
01170 
01171 
01172 
01173 
01174 


01176 
01177 
01178 
01179 
01180 
01181 
01162 
01183 


O9BS 
O9BS 
O?7B9 
O9BB 
O9BE 


O9BF 
09c0 
09C2 
O9cs 
09C6é 
09C9 
O9CB 
O9CE 


O9CF 
O9CF 
09D1 
O7D4 
O9D7 
O9D9 
O9DC 


O9DD 
O9DF 
O9E1 
O9E4 
O9E7 
O9E9 
O9EC 


O9ED 
O9EE 
O9FO 
O9F3 
OTF 4 
O9F7 
O9F9 
O9FC 


85 
6D 
20 
AS 


60 


CODE 


43 


FO 


00 
FO 


9E 


FO 


D4 
FO 
D2 


09 
FO 


0o 
FO 


93 


FO 


0029 


Fi 


FF 


FF 
Fi 


FF 


FF 
Fi 


FF 


FF 
FO 


FF 


FF 
Fi 


FF 


LINE 


CIOUT 


UNLSN 


TALK 


TKSA 


PLA 
JSR 


STA 
RTS 


LDA 
STA 
JSR 
LDA 
STA 
RTS 


STA 
LDA 
STA 
JSR 
LDA 
STA 
RTS 


RSECND 
MEMMAP 
SFFFO 


#0 
SFFFO 


RCIOUT 
MEMMAP 
SFFFO 


#0 
$FFFO 
RUNLSN 
MEMMAP 
SFFFO 


FA 


SFFFO 
RTALK 
MEMMAP 
SFFFO 


#0 
$FFFO 


RTKSA 
MEMMAP 
SFFFO 


MESSAGES...... 


LINE# LOC 


01185 
01186 
01187 
01168 
01189 
01190 
01191 
01192 
01193 


01203 
01204 
01205 
01206 
01207 
01208 
01209 
01210 
Ol2il 


ERRORS 


SYMBOL 


SYMBOL 
A4 
ACC 
ALTRIT 
B3 
BEQ@S1 
CBINV 
CLSEI 


O?FD 
O9FD 
OFF 
OA0Z 
OAO0S 
OA06 
OA08 
OAOB 
OAOC 


OAOD 
OAOD 
OAOF 
OA1i2 
OA1LS 
OA17 
OA1A 


= 00000 


TABLE 


VALUE 
0616 
0003 
0545 
0498 
OSF 1 
0092 
OBBA 
0O00D 
0767 
0764 
OScc 


CODE 


00 
co 


09 
FO 


0030 


FF 
Fi 


FF 


FF 
Fi 


FF 


FF 


F4 


FF 


ACPTR 
ASC 1 


BREAK 
CINV 
CLSEI2 
CRLF 
DISK15 


DSP 10 


LINE 


ACPTR 


UNTLK 


OPENI 


0618 
O9FD 
O6F 4 
04A4 
0878 
0090 
OB89F 
0553 
O76A 
0599 
05C9 


LDA 
STA 
JSR 
PHA 
LDA 
STA 
PLA 
RTS 


PHA 
LDA 
STA 
PLA 
JSR 
LDA 
STA 
RTS 
. EN 


#0 
$FFFO 
RACPTR 


MEMMAP 
$FFFO 


#0 
$FFFO 
RUNTLK 
MEMMAP 
SFFFO 


#0 
SFFFO 


ROPENI 
MEMMAP 
$FFFO 


D 


Aé 
ALTM 
ASCII 
BAD 
BSOUT 
CIOUT 
CMDEND 
D2 
DISK20 
DM1 
DSPLYM 


0627 
O&0F 
O6ED 
0100 
0981 
O9BF 
0531 
05795 
0776 
0O59D 
OSB4 


Ag 
ALTR 
Bi 
BASIN 
BUF 
CLRCH 
cmDS 
DISK 
DISK25 
DM2 
DSPLYR 


~ 


062B 
OSFS 
0492 
0971 
0200 
0991 
0516 
O74B 
0787 
OSAF 
0373 


SYMBOL TABLE 


SYMBOL VALUE 


EAH 
ERROPR 
ERROR4 
ERRORS 
FLGS 
G2 
INCR 
IRQ 


END OF ASSEMBLY 


OOOF 
O4AD 
osec3 
O8CF 
0002 
064D 
oBes 
0440 
Oé6CE 
0670 
0694 
0627 
O7AE 
O7F2 
0796 
0009 
O93A 
o95Cc 
O90E 
OO9E 
0550 
0531 
0709 
0745 
F143 
F1B9 
O4E6 
OOD3 
082D 
042B 
09462 
0096 
O4B1 
0863 
O6F9 
047A 
0017 
OAOD 
0004 


OOOE 


oscé 
OBD2 


EREXIT 
ERROR2 
ERRORS 
ERRS1 
FNLEN 
HE X09 
INVH 
Li2 

La 

LS 
LD10 
LD190 
LD410 
LD90 
LUKING 
MS10 
MS21 
MS6 
MSG 
OPENI 
PCL 

RC IOUT 
RDOB 
RLISTN 
RTIP 
so 

54 

SAL 
SAVX 
SP 
STAH 
sToP 
SV2O 
Ssv50 
TALK 
TMPO 
TMPPS 
WROA 


O6E4 
O8BD 
osc? 
OSF2 
OoD1 
0744 
0007 
O6A4 
066E 
0684 
O7A0 
O80c 
OB82A 
0804 
O80D 
0920 
0930 
OBFE 
0962 
OA1B 
0001 
F19E 
0716 
FODS 
0472 
04C4 
0500 
oooc 
0015 
0006 
OOOB 
OBAA 
0836 
0887 
O9DD 
0010 
0018 
O6DC 


MS11 
MS34 
MS7 
MSG10 
OUTFN 
PREND 
RCLRCH 
RDOB4 
ROPENI 
RTKSA 
$1 

56 
SAV100 
SECND 
SPACE 
STAL 
STOP2 
SV25 
sYs 
TIMB 
TMP2 
UNLSN 
WROB 


065B 

osco 

oecc 

OOD4 

063F 

073A 
0008 
06B3 
04C5 
068D 
081D 
O7A3 
O7E3 
O99F 
062C 
0928 
0945 
0902 
O96F 
081B 
0655 
F2A6 
0739. 
F4AS 
Fi93 
O4D2 
0515 
OBAP 


054D 
OOOA 
O8B9 
0841 
OO9E 
0468 
0012 


O6E1 


ADD-ON-L.* 


LINE®# LOC 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 


00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 


0000 
0000 
0000 
0000 
0000 
0c0o0 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


... PAGE OOO1 


CODE 


LINE 


5 GMM EEE EEE EEE EEE EH 


im 
3 @ 
1% 
i* 
5 
i* 
3# 
3@ 
3% 
3 # 
3 # 
7 
i # 
3* 
i* 


# 

AAA DDDD DDDD ooo N N * 
A A D DD D 0 QO NN N * 
A AD DD D ##2# O ONNN # 
AAAAA D DD D #e2# 0 ONNWN * 
A A D DD D a] ON NN + 
A A DDDD DDDD OOO N N # 
* 

L 000 AAA DDDD EEEEE RRRR * 
L 0 OA A D DE R R # 
L 0 OA A D DE R R + 
L 0 O AAAAA D D EEEE RRRR * 
L 0 OA AD DE R R + 
LLLLL OOO A A DDDD EEEEE R R * 
# 


GME EE ETHER HEEEREEEREEEEEEE 


FMR EEE EEE REE REE EEE EEE EEE REET 


i# 
i* 
i 
i # 
3 * 
i & 
i # 
i* 
i} 
i 
i* 
i # 
i@ 
3# 
;# 


* 


64K-ADD-ON LOADER * 

* 
THIS PROGRAM INPUTS A FILE NAME FROM # 
THE KEYBOARD AND ATTEMPTS TO LOAD # 
THAT PROGRAM INTO ADD-ON RAM SELECTED* 
BY CONTROL REGISTER VALUE “10000000. # 
A CBM DISK UNIT #6 IS ASSUMED. AN # 


AUTO START IS ATTEMPTED THROUGH * 
(S$FFFC). A NULL FILE NAME TERMINATES# 
THIS PROGRAM. bed 
2FEBS1 RUF 29JUL61 RUF * 
CBM PART # 118002 REV B * 


+ 


EPR EREEE EEE ERREEEHEHESEEERE EEE EEE 


LINE@ L 


00037 
00038 


00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
000350 
000351 
00052 
00053 
00054 
00055 
00056 
00057 


oc 


0000 
0000 


0001 
0001 


0001 
0001 
0001 
ooo 
0001 
0001 
ooo! 
0001 
0001 
ooo1 
0001 
0001 
0001 
0001 
0001 


LINE 


MEMMAP 


is EQUATES FOR BASIC 4.0 


BUF 
FNADR 
FNLEN 
STATUS 


t+ 2( 
#o4+1 


=€200 
=€DA 
=$D1 
7=B96 
=$D4 
=$D3 
=$F2A6 
=$FODS 
=$F143 
=$F19E 
=8F1B9 
=$FOD2 
=$F 192 
=$F1CO 
=$F 1AE 
s$F4A5 


+COPY OF ADD-ON REO 


INIT 2-12-81...... PAGE 0003 


LINE# LOC CODE LINE 

00059 0001 i 

00060 0001 * =1024 

00061 0400 SYS =158 sBASIC TOKEN VALUE 
00062 0400 i 

00063 0400 s ENTER COMPILED BASIC TEXT 
00064 0400 j 

00065 0400 00 .BYT O 

00066 0401 OD 04 .-WOR INIT-2 

00067 0403 10 00 .WOR $10 

00068 0405 9E . BYT SYS 

00069 0406 28 31 .BYT ’¢€1039)°,0,0,0 


00069 O40C 00 

00069 O040D 00 

00069 O40E 00 

00070 O40F i 

00071 O40F sSETUPT FILE LOAD PARMS 


00072 O40OF i 

00073 O40F A BO INIT LDA #%10000000 

00074 0411 85 00 STA MEMMAP 

00075 0413 i 

00076 0413 AO 17 LDY @MS2-MS1 

00077 0415 20 90 05 JSR MSC 5 TYPE ENTRY MESSAGE 
00078 0418 i 

00079 0418 A9 00 INITIO LDA #<BUF 

0o00s0 O41A 85 DA STA FNADR 

00081 O041C Ag 02 LDA #>BUF 

00082 O41E 85 DB STA FNADR+1 iPLACE FOR FILE NAME 
00083 0420 i 

00084 0420 A 08 LDA #6 

00085 0422 85 D4 STA FA +DEVICE #6 

00086 0424 i 

00087 0424 i INPUT FILE NAME FROM SCREEN TO BUF 
0oo0ss 0424 i 

00089 0424 A2 00 LDX #0 

00090 0426 20 CF FF INIT2O JSR SFFCF 

00091 0429 C9 OD CMP #6D 

00092 O042B FO 06 BE@ INIT3SO 

00093 042D 9D 00 O02 STA BUF, X 

00094 0430 €E6 INX 

00095 0431 DO F3 BNE INIT20 

00096 0433 i 

00097 0433 86 Di INIT3SO STX FNLEN 

00098 0435 A929 OD LDA #$D 

00099 0437 20 D2 FF JSR SFFD2 i ECHO CR 

00100 0434 i 

00101 O43A AS Di LDA FNLEN 

00102 O043C DO Ol BNE INIT40 sNAME WAS NOT NULL 
00103 043E i 

00104 O43E 60 RTS 

00105 O43F i 

00106 O043F 78 INIT4O SEI *PROTECTS ADD-ON 


00107 0440 ; 


LOAD 2-12-81 


LINE@ 


00199 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00116 
00119 
00120 
oo121 
00122 
001293 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
001359 
00160 
00161 
00162 
00163 


LOC 


0440 
0440 
0442 
0444 
0444 
0446 
0448 
0448 
04483 
044B 
044D 
0450 
0450 
04352 
0455 
0455 
0458 
0458 
045B 
045D 
O43E 
O45F 
0461 
0461 
0464 
0467 
0467 
0469 
046B 
046D 
046D 
0470 
0471 
0473 
0474 
0475 
0477 
0477 
0477 
9477 
047A 
O47A 
047D 
O&7F 
0482 
0482 
0494 
0466 
0486 
0489 
0489 
0489 
0489 
040B 
048E 


CODE 


A9 
85 


Ag 
85 


20 


AS 
20 


AS 
20 


20 
8D 


AS 


BO 


20 
8D 


Ag 
25 
85 


20 
AA 
AS 
4a 
4A 


BE 
EE 
DO 
EE 


24 
50 


20 


AS 
20 


oo 
96 


60 
D3 


3D 


D4 
FF 


D3 
OF 


1F 
78 


96 


41 


1F 
79? 


FD 
96 
iF 


96 


FO 


00 
78 
03 
79 


96 
E1 


aF 


D4 
Ci 


0S 


04 


05 


os 
04 


O05 
04 


0S 


FO 


04 


04 


OS 


04 


PAGE 0004 


LINE 


LOAD 


i 
LD40 
5 
LD45 
EAL 
EAH 
LD6O 


LD70 


i CLOGE 


LDA 
STA 


LDA 
STA 


JSR 


l.DA 
JSR 


LDA. 
JSR 


JSR 
STA 


LDA 
LSR 
tSR 
BCS 


JSR 
STA 


LDA 
AND 
STA 


JSR 
TAX 
LDA 
LSR 
LSR 
BCS 


=#+1 
=H+eoD 


STX 
INC 
BNE 
INC 


BIT 
BVC 


JSR 


FILE 


LDA 
JSR 


#0 
STATUS 


#660 
SA 


OPENT 


FA 
TALK 


SA 


TKSA 


ACPTR 
EAL 


STATUS 
A 

A: 

LD 


ACPTR 
EAH 


#$FD 
STATUS 
STATUS 


ACPTR 
STATUS 
A 


A 
LD40 


$F 000 
EAL 
LD70 
EAH 


STATUS 
LD40 


UNTLK 


FA 
LISTN 


i SPECZTAL LOAD COMMAND 


;OPEN THE FILE 


*+ESTABLISH CHANNEL 


iTEr.L IT TO LOAD 


5GET FIRST BYT 
:LOAD ADDRESS LOW 


iFILE NOT FOUND 


?OAP ADDRESS itIGH 


sMASK OFF TIMEOUT 


+DATA BYTE 


s TIMEOUT? 


: VES. . TRY AGAIN 
;OPERAND IS SEI.F MODIFY 


s INC STORE ADDRESS 


i; EOI? 
+NO... 


; CLOSE CHANNEL 


LOAD 2-12-81...... PAGE 0005 


LINE® LOC CODE LINE 

00164 O48E AS D3 LDA 
00165 0490 29 EF AND 
00166 0492 09 EO OQRA 
00167 0494 20 D1 04 JSR 
001468 0497 i 

00169 0497 20 Fi 04 JSR 
00170 O49A 

00171 O49A 

00172 O4&9A i AND WRITE 
00173 O49A i 

00174 O49A AI ED LDA 
001753 049C 8D FO FF STA 
00176 O49F i 

00177 O49F 6C FC FF JMP 
00176 O4A2 j 

00179 O4A2 20 B3 04 LD90 JSR 
00180 O4AS A? O00 LDA 
00181 O4A7 68D FO FF STA 
00182 O4AA i 

00183 O4AA AO OO LDY 
00184 O4AC 20 90 O05 JSR 
00185 O4AF i 

00186 O4AF 58 CLI 
00187 O4BO 4C 18 04 JMP 


SA 
SEF 
#6E0 
SECND 


UNLSN 


i 1/0 PEEK, SCREEN PEEK 


PROTECT BLOCKS 


#%11100011 
6FFFO 


(SFFFC) 


CLRCH 
#%00000000 
GFFFO iMAP BACK TO ROM 
#MS1-MS1 


MSG i FILE NOT FOUND ERROR 


INIT10 i RETRY 


SUBS 2-12-61 


LINE@ LOC 


00189 
00190 
00191 
00192 
00193 
00194 
001935 


00197 
00198 
00199 
00200 
00201 
00202 
00203 


00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 


00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 


00223 
00224 
00225 
00226 
00227 


04B3 
04B3 
O4B5 
0488 
O4BB 
O4BD 
04cO 


04Cl 
04C3 
04C5 
04c8 
O4CB 
04CD 
04D0 


04D1 
04D2 
04D4 
04D7 
04D8 
O4DB 
04DD 
O4E0 


O4E1 
04E2 
O04E4 
04E7 
O4E8 
O4EB 
O4ED 
O4FO 


CODE 


Ag 
8D 
20 
AS 


D4 


FO 
DS 
00 
FO 


00 
FO 


43 


00 
FO 


00 
FO 


oo 


F2 


FF 


FF 
FO 


FF 


FF 


Fil 


FF 


FF 


Fi 


FF 


FF 
Fi 
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LINE 


CLRCH 


LISTN 


SECND 


C1OUT 


UNLSN 


LDA 
STA 
JSR 
LDA 
STA 
RTS 


STA 
LDA 
STA 
JSR 
LDA 
STA 
RTS 


PHA 
LDA 
STA 
PLA 
JSR 
LDA 
STA 
RTS 


PHA 
LDA 
STA 
PLA 
JSR 
LDA 
STA 
RTS 


LDA 


JSR 
LDA 


#0 
SFFFO 
RCLRCH 
MEMMAP 
SFFFO 


FA 


$FFFO 
RLISTN 
MEMMAP 
$FFFO 


#0 
$FFFO 


RSECND 
MEMMAP 
SFFFO 


#C 
$FFFO 


RC IOUT 
MEMMAP 
$FFFO 


#0 
SFFFO 
RUNLSN 
MEMMAP 


SUBS 2-12-81 


LINE®# LOC 


00228 
00229 


00231 
00232 
00233 
00234 
00235 
00236 
00237 


00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 


00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 


00258 
00259 
00260 
00261 
00262 
00263 
00264 


O4FB 
O4FE 


OSOF 
0510 
0312 
0515 
0516 
0519 
OS1B 
OS1E 


OS1F 
OS1F 
0521 
0524 
0527 
0528 
052A 
052D 
OS2E 


OS2F 
OS2F 
0531 
0534 
0537 
0539 
053C 


8D 


48 


SD 
68 
20 
AS 
8D 
60 


7 © 6 © & 


CODE 


FO 


00 
FO 


93 


FO 


00 


co 


00 
FO 


00 


AE 


FO 


FF 


FF 
FO 


FF 


FF 
Fi 


FF 


FF 
Fi 


FF 


FF 
Fi 


FF 
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LINE 


TALK 


TKSA 


ACPTR 


UNTLK 


STA 
RTS 


STA 
LDA 
STA 
JSR 
LDA 
STA 
RTS 


PHA 
LDA 
STA 
PLA 
JSR 
LDA 
STA 
RTS 


LDA 
STA 
JSR 


LDA 
STA 


RTS 


$FFFO 


FA 
#0 
$FFFO 
RTALK 
MEMMAP 
$FFFO 


#0 
$FFFO 


RTKSA 
MEMMAP 
$FFFO 


#0 
¢FFFO 
RACPTR 


MEMMAP 
$FFFO 


#0 

$FFFO 
RUNTLK 
MEMMAP | 
SFFFO 


SUBS 2-12-81. ....PAGE 0008 


LINE@ LOC CODE LINE 

00266 OS53D 48 OPENI PHA 

00267 OS3E A? 00 LDA #0 

00268 0540 8D FO FF STA SFFFO 

00269 0543 68 PLA 

00270 0544 20 AS F4 JSR ROPENI 

00271 0547 78 SEI 

00272 OS5S48 AS 00 LDA MEMMAP 

00273 O54A 8D FO FF STA §FFFO 

90274 O54D 60 RTS 

00276 OS4E OD MS1 .BYT $D, ‘?F ILE NOT FOUND ERROR’, $6D 

00276 OS54F 3F 46 

00276 0564 8D 

00277 O365 OD MS2 . BYT $D, 18 

00277 05466 Iie 

00278 0567 36 34 .BYT ‘64K ADD-ON-LOADER 2-12-81 ’ 

00279 O580 OD . BYT $D, $D, 8D 

00279 0581 OD 

00279 O582 ON 

00280 0583 53 59 .BYT ‘SYSTEM NAME? ’, $AO 

00280 OSSF AO 

00281 0590 B9 90 OS MSG LDA MSG, Y 

00282 0593 08 PHP 

00283 0594 29 7F AND #%$7F 

00284 0596 20 D2 FF JSR SFFD2 

00285 O599 CA INY 

00286 O59A 28 PLP 

00287 OS9RE 10 F3 BPL MSO 

00288 O059D 60 RTS 

00289 O5S9E . END 

ERRORS = 00000 

SYMBOL TABLE 

SYMBOL VALUE 
ACPTR OS1F BUF 0200 CIOUT O4E1 CLRCH O4B3 
EAH 0479 EAL 0478 FA OOD4 FNADR OQODA 
FNLEN ooD1 INIT O40F INIT10 0418 INIT2O 0426 
INIT30O 0433 INIT49 043F LD40 0467 LD45 0446D 
LD60 047A LD70 0462 LD9IO 04A2 LISTN o4c1 
LOAD 0440 MEMMAP 0000 MS1 O54E MS2 0565 
MSG 0590 OPENI 0353D RACPTR Fico RC 1OUT F1iSE 
RCLRCH F2A6 RLISTN FODS ROPENI F4as RSECND F143 
RTALK FOD2 RTKSA F193 RUNLSN FiB9 RUNTLK F1AE 
SA OOD3 SECND 04D1 STATUS 0096 SYS OO9E 
TALK O4FF TKSA OSOF UNLSN O4F 1 UNTLK OS2F 


END OF ASSEMBL.Y 


EXP-BASIC.SRC...... PAGE 0001 


LINE®# LOC CODE LINE 

0001 oo000 5 Me Re SE FTE HE SE I aE AE a A ab a EE SE 0 a HE a a a HE 
0002 0000 i# EEEEE X X PPPP AAA N N DDDD + 
0003 0000 i*% €E xX xX P PA A NN ND D # 
0004 0000 i* CE Xx X P PA AN NN D D # 
0005 0000 i# EEEE x PPPP AAAAA N NN D D «# 
0004 0000 iz E Xx X P A AN NN D D +# 
0007 0000 i*% €E x X P A AN NN D D * 
000s 0000 3;* EEEEE X x P A AN N DDDD # 
0009 0000 i * # 
0010 Q000 i# AAA BBBB AAA SSS IIIII ccc # 
0011 0000 it A A B BA As s I Cc C * 
0012 0000 i” A A B BA A § I Cc + 
0013 0000 i#z A A B BA A +) I Cc * 
0014 0000 3 # AAAAA BBBB AAAAA Ss I Cc * 
00153 0000 i# A A B BA A S I C * 
0016 0000 it A A B BA AS +=) I Cc Cc # 
0017 0000 ik A A BBBB A A S5S IIIII ccc «# 
0018 0000 i” + 

0019 0000 Meter err rrr eo rrr err reer eo 
0020 0000 i 

0021 0000 i 

0022 0000 error ro rrr er ero rrr oer Perrier rrr rrr er 
0023 0000 i # # 
0024 90000 i# EXPANDED BASIC # 
0025  O000 ; # * 
Q026 0000 3% PROGRAM TO APPEND TO THE CBM BASIC * 
0027 0000 i# VERSION 4.0, 8032, CHRGET ROUTINES # 
0028 0000 i# AND ADD COMMANDS TO CACHE PROGRAMS + 
0029 0000 i# IN THE 64K ADD-ON MEMORY. # 
0030 0000 i # 
0031 0000 i*# 14JUL81 RJF (BOB) 3OJULS1 (JOHN) * 
0032 0000 5% + 


0033 0000 Moro rrirrr error ror Seer rT rere 


EXP-BASIC.SRC...... PAGE 0002 


LINE® LOC 


0035 
00936 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0030 
0031 
0032 
00583 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0064 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
008e 
0089 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
7800 
7803 
7803 
7803 
7803 
7804 
7605 
7806 
7807 
7808 
7808 
7808 
7809 
7B0A 


CODE 


4C 2E 79 


79 
79 
7A 
7A 
79 


91 
FD 
i1 


LINE 


i; SVSTEM VARIABLE DEFINITIONS 


$ 


STATUS =896 +>SYSTEM STATUS VARIABLE 

DS =$13 sDISK STATUS DESCRIPTOR 

CHROET =670 +BASIC ROUTINE TO GET CHARS 

CHRGOT =$76 1GET LAST CHARACTER 

GETPTR =$77 i+POINTER TO CHARACTERS 

CHDGOT =$D39F sROM COPY OF CHRGOT 

NEWSTT =@B74A sNEW STATEMENT EXEX 

LNAPRG =SB4B6é sLINK BASIC LINES 

STXTPT =€Bé22 iSET START TEXT POINTER 

OP94 =SF4A5 s}OPEN A FILE ON IEEE 

READY *S$B3FF }RE-ENTER BASIC 

FLOAD =$B40B iRUN AN OVERLAY 

RUNC =SBSE9 *>CLEAR VARIABLES 

CLRCH =SFFCC i CLEAR OPEN CHANNEL 

FCLOSE =$F2E2 sCLOSE A FILE 

TALK =¢FOD2 i TELL DEVICE TO TALK 

ACPTR =6F1CO iGET A BYTE 

CLSEI =S8F72F i CLOSE A FILE 

UNTLK =6F1AE i UNTALK 

TKSA =$F 193 +SEND SECONDARY ADDR 

WSW =$B3 

Ti =$B4 

T2 =$B5 

T3 =$B6 

FNLEN =$D1 sFILE NAME LENGTH 

LA =$D2 sLOGICAL FILE NUMBER 

SA =$D3 + SECONDARY ADDRESS 

FA =$D4 sPRIMARY ADDRESS 

FNADDR =$DA iFILE NAME ADDRESS 

INDEX1 =61F + TEMP POINTER 

INDEX2 =$€21 + TEMP POINTER 

EAL =ec9 i END ADDRESS POINTER 

VARTAB =62A + VARIABLE TABLE POINTER 
=$34 + TOP OF MEM POINTER 


MEMSIZ 


+ PROGRAM VARIABLES AND CONSTANTS 


i 
LOC 
i 


i 
TABHI 


=¢7800 
#=LOC 


JMP GOO0 


+ START PROGRAM 


.-BYT 3221 
.BYT >ZZ3 
_BYT >2Z2Z4 
.BYT >ZZ5 
.BYT 9228 


j 

TABLO 
.BYT <2Z1 
.BYT <ZZ3 
.BYT <ZZ4 


EXP-BASIC.SRC...... PAGE 0003 


LINE# LOC 


0090 
oo9!1 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 


780B 
780C 
780D 
780D 
780D 
7812 
7828 
7829 
7829 
7829 
7929 
792B 
792B 


CODE 


22 
7c 


S2 4C 


00 


681 B7 


4c 31 79 


LINE 


NCMD 
CMD 
FILE 


ENTRY 
ENTMAX 
FITAB 
WHERET 
MASTER 
JUMP 


.BYT <ZZz3S 
.BYT <ZZ8 


= 

.BYT ’RLOEQG’ 
#+z#+22 

. BYT #00 
225 

2225 
4244256 

.WOR $B76G2-1 
=6BB 

JUMP START 


+s ENTRY#9 


s GONES-3-1 
i AVAILABLE SPACE (THREE BYTES 


EXP-BASIC. SRC 


LINE@ 


0104 
0105 
0106 
0107 
0108 
0109 
0110 
O111 
Olla 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 


Loc 


792E 
7TI2E 
792E 
7I2E 
7T9I2E 
7930 
7933 
7933 
7936 
7938 
7938 
7938 
793A 
793B 
793E 
79SF 
7941 
7941 
7941 
7941 
7943 
7945 
7946 
7948 
794A 
794C 
794E 
79350 


CODE 


A2 
BD 
95 
CA 
10 


02 
2B 
79 


FS 


00 
29 


FA 


80 
BC 


BB 
BD 
34 


33 


79 


78 


PAGE 0004 


LINE 
i INIT THE 
b 
cooo0 
LDX 
WEDGE LDA 
STA 
DEX 
BPL 
; 
TABSET 
LDX 
TXA 
TABLP STA 
TNX 
BNE 


MEMORY MANAGER (SYS TO HERE) 


#$02 
JUMP, X 


CHRGOT+3, X 


WEDOE 


#0 
FITAB, X 


TABLP 


iMOVE THREE BYTES 


SETUP THE START ADDRESS 


LDA 
STA 
ASL 
STA 
STA 
STA 
LDA 
STA 
RTS 


#680 
MASTER+1 
A 

MASTER 
MASTER+2 
MEMSIZ 
#>Lac 
MEMSIZ+1 


+HIGCH BYTE 


sLOW BYTE 
1 BANK SELECT 
sSET MEMSIZ TO LOC 


EXP-BASIC. SRC 


LINE# LOC 


0133 
0134 
01935 
01936 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 


79351 
7931 
7991 
7931 
79351 
7933 
7935 
79358 
7936 
7938 
7938 
79358 
795C 
79SE 
7960 
7960 
7963 
7945 
7965 
7969 
7945 
7966 
7986 
7969 
796A 
796D 
796E 
796F 
79OF 
79GF 
7970 
7972 
7972 
7972 
7973 
7976 
7976 
7976 
797A 


CODE 


c9 


20 


20 
48 
FO 
A2 


DD 
DO 


cA 
10 


20 
68 


Cc? 
BO 
4C 


ai 
ai 
C9 


70 


14 
04 


OD 
OA 


03 


08 


EE 


DO 


3A 


7D 


7A 


00 


78 


78 


78 


7A 


00 


PAGE 0005 


LINE 


é 


» THIS IS WHERE WE COME TO DO THE WORK 


START 


i TEST 


FINDC 


s PUT COMMAND ADDRESS 


STRTS 


i 
AGAIN 


NOTCMD 


NOTME 


CMP 
BNE 
JSR 


“’! 
NOTME 
SAVREG 


sLOOK FOR THE ESCAPE CHARACTER 


+ SAVE THE REGISTERS 


HERE FOR QUOTE MODE ETC.......... 


JSR 
PHA 
BEQ 
LDX 


CMP 
BNE 


PLA 


LDA 
PHA 
LDA 
PHA 
RTS 


DEX 
BPL 


JSR 
PLA 


CMP 
BCS 
JMP 


CHRGET 


NOTCMD 
#NCMD-1 


CMD, X 
AGAIN 


TABHI, X 


TABLO, X 


FINDC 


RESREG 


#°: 
STRTS 
CHRGOT+7 


s}GET THE NEXT CHARACTER 


sFIND THE COMMAND 


ON STACK 


sFIX THE STACK 


; FOUND COMMAND... GO THERE 


sFIX THE STACK 


EXP-BASIC. GRC 


LINE@ 


0173 
0174 
01735 
0176 
0177 
0176 
0179 
0180 
018i 
0162 
0183 
0164 
0185 
0186 
0187 
0188 
0189 


LOC 


797D 
797D 
797D 
797D 
7970 
797D 
797D 
797D 
79780 
7982 
7984 
79784 
7987 
7989 
79BA 
798C 
798F 


.... PAGE 0006 


CODE 


20 
DO 
A2 


BD 
93 
cA 
10 
20 
4c 


70 00 
FB 
02 


A2 D3 
79 


Fe 
DO 7A 
76 00 


LINE 


oe CG Ww @ SG ww 


QUIT 
WSR 
BNE 
LDX 
REST 
LDA 
STA 
DEX 
BPL. 
JSR 
JMP 


QUIT COMMAND 


THIS COMMAND EXITS THE MEMORY MANAGER 
AND RESTORES THE CHRGET ROUTINE. 


CHRGET + CLEAN UP THE LINE 
QUIT 
#602 


CHDGOT+2. X 
CHROOT+3, X 


REST 
RESREO 
CHROOT 


EXP-BASIC. SRC 


LINE# LOC 

0191 7992 
0192 7992 
0193 7992 
0194 7992 
0195 7992 
0196 7995 
0197 7997 
0198 7999 
0199 =799C 
0200 799E 
0201 79A0 
0202 79A2 
0204 79A5 
02068 79A5 
0207 79A7 
0208 79A9 
0209 79AB 
0210 79AD 
O2!1 7980 
0212 7983 
0219 79B5 
0214 79B5 
0215 79B7 
0214 79BA 
0217 79BC 
0218 79BF 
0219 79BF 
0220 79C2 
0221 79C3 
0222 79C& 
0223 79C8 
0224 79CA 
0225 79CC 
0226 79CF 
0227 79D0 
02286 79D3 
0229 79D5 
0230 79D7 
0231 79D9 
0232 79DB 
0233 79DD 
0234 79DF 
0235 79E&2 
0236 79ES 
0237 79E7 
0238 79EA 
0239 79EC 
0240 79EC 
0241 79EE 
0242 79F1 
0243 79F4 
0244 79F4 


CODE 


7A 


7B 


78 


F4 


FO 


Fl 


Fi 


7B 


FF 


7B 


Fi 
F7 


7B 


7A 
oo 


Fl 
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LINE 


sLOAD FILE 


i 
RECAL 


JSR 
LDA 
BNE 
JSR 
LDA 
BNE 
LDA 
STA 


FROM DISK INTO EXPANSION MEMORY 


GETFN 
STATUS 
RECOUT 
GTYPE 
STATUS 
RECOUT 
#°R 
FILE, X 


+GPEN THE FILE 


REC10 


REC20 


RECOUT 


RECERR 


LDA 
STA 
ORA 
STA 
JSR 
JSR 
BCS 


LDA 
JSR 
LDA 
JSR 


JSR 
SEI 
JSR 
LDY 
STA 
LDA 
STA 
CLI 
JSR 
LDA 
BNE 
BCC 
BCS 
CMP 
BNE 
JSR 
JSR 
LDY 
JSR 
LDA 


STA 


JSR 
JMP 


JSR 


#14 


SELBNK 
#0 


(MASTER), Y 


#$00 
6FFFO 


INCMAS 
STATUS 
REC20 
REC10 
RECERR 
#64 
RECERR 
UNTLK 
CLSEI 
#21 
ENTLST 
#0 


STATUS 


RESREG 
CHRGET 


UNTLK 


s#GET THE FILENAME 


STATUS 
THE FILE TYPE 


; BAD 
i GET 


iSET UP FOR FILE READ 


sSET THE LOGICAL FILE NUMBER 


*SET THE SECONDARY ADDRESS 
+>OPEN THE FILE 


s ENTER FILENAME INTO TABLE 
+ BAD... 


iGET A CHARACTER 
+#KILL THE IRQ 
#SET UP EXP. RAM 
+RESET THE BANKS 
+#RESTORE THE IRG@ 
+ TERMINATE ON STATUS <> O 
i960 DO MORE BYTES 
;OUT OF MEMORY 
sEOQI IS OK 
iNOT EOI... 
;CLOSE THE FILE 


sPUT IN THE END ADDRESS 


sRESTORE REGISTERS 
i BACK TO BASIC . 


;CLOSE THE CHANNEL 


EXP-BASIC.GRC...... PAGE 0008 


LINE®@ LOC CODE 


0246 79F7 20 2F F7 
0247 79FA AP 20 
0248 79FC DO EE 


LINE 


JSR CLEEI 
LDA #32 
BNE RECOUT 


+ SEND AN ERROR BACK 


EXP-BASIC. SRC 


LINE# LOC 


0230 
0251 
0252 
0253 
0254 
0255 
0255 
0257 
0258 
0259 
0260 
0261 
0262 


79FE 
79FE 
79FE 
79FE 
79FE 
7AO01 
7AO3 
7A0S 
7A07 
7A09 
7AOC 
7AOF 
7AL2 


CODE 


7A 


BS 
B4 
B3 


PAGE 0009 


LINE 


LOAD 


3 
) 


THIS ROUTINE LOADS A FILE INTO THE EXPANSION MEMOR’ 


JSR 
LDX 
STX 
LDXx 
STX 
JSR 
JSR 
JMP 


LOADER i DO THE LOAD STUFF 
INDEX1+1 

VARTAB+1 

INDEX1 

VAR TAB 

RUNC i'CLEAR THE VARIABLES 
LNKPRG s LINK BASIC LINES 
READY i SAY READY 


EXP-BASIC.SRC...... PAGE 0010 


LINE® LOC CODE LINE 

0264 7A12 OVRLY 

0265 7AlL2 ; 

0266 7Al2 + OVERLAY AN EXISTING PROGRAM (1.£. LOAD FROM BASIC) 
0267 7AI2 i 

0268 7A12 20 3A 7A JSR LOADER sLOAD THE FILE 

0269 7A1S3 20 22 B6 JSR STXTPT +PICK UP THE FIRST LINE 

0270 7A18 AD 2A 79 LDA WHERET+1 *PUT CORRECT ADDRESS ON STACK 
0271 7AIB 48 PHA 

0272 7AIC AD 29 79 LDA WHERET 

0273 7AIF 48 PHA 

0274 7A20 4C OB B& JMP FLOAD +GO RUN IT 


0275 7A23 i 


EXP-BASIC. SRC 


LINE# LOC 


0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
02867 
0288 
0289 
0290 


7A23 
7A23 
7A23 
7A23 
7AL3 
TALS 
7A28 
7TALA 
TALC 
TAGE 
7A31 
7A34 
7A37 
7TAQGA 


.... PAGE OO11 


CODE 


3A 7A 
20 
2B 
1F 


E9 BS 
Bé B4 
22 BS 
4A B7 


LINE 


EXEC 


é 
r] 


LOAD AND 


JSR 
LDX 
STX 
LDX 
STX 
JSR 
JSR 
JSR 
JUMP 


RUN WITH A CLEAR SO VARIABLES ARE GONE 


LOADER 
INDEX1+1 
VAR TAB+1 
INDEX1 
VARTAB 
RUNC 
LNKPRG 
STXTPT 
NEWSTT 


s#LOAD THE FILE 


sCLEAR VARIABLES 

iLINK LINES 

*+SET POINTER TO FIRST LINE 
sEXEC IT 


EXP-BASIC. SRC 


LINE®@ LOC 


0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
o3t1 
O3i2 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 


TASA 
7TABA 
TAA 
7AGA 
TASA 
7A3D 
TAF 
7A4l1 
7A44 
7TA4G 
7TA46 
7A4aR7 
7A48 
TA4SA 
7A4B 
7TA4SE 
7ASO 
7AS1 
7AS4 
7TAS& 
7TASG 
7AS7 
TASA 
7ASC 
TASC 
7ASD 
7A60 
7Ab2 
7A63 
7A66 
7A468 
7A68 
7A68 
7468 
7A68 
7A69 
7A69 
7A6B 
7A6D 
T7AGF 
7A71 
7A73 
7A73 
7A75 
TAT7S 
7A78 
7A7B 
7A78 
TATA 
7AT7C 
TATE 
TATE 
7AB1 
7A83 
7A84 


CODE 


78 
AO 
DO 


DO 


BE 


Bi 
85 
20 


Bi 
8s 
20 


D7 
96 
9C 
7D 
37 


12 


29 
21 


29 
22 


29 
D1 


29 
c9 


29 
CA 


oo 
Dt 
04 
80 
02 


FO 


21 
1F 


21 
20 
oF 


7A 


7B 


78 


78 


78 


78 


78 


FF 


7A 


7A 
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LINE 


i 


i} ROUTINE TO LOAD FILES INTO LOW RAM FROM 64K 


LOADER 
JSR 
LDA 
BNE 
JSR 
BCS 


TYA 
CLC 
ADC 
TAY 
LDA 
STA 
INY 
LDA 
STA 


INY 
LDA 
STA 


INY 
LDA 
STA 
INY 
LDA 
STA 


; 


GQETFN 
STATUS 
LDERR 
LUKUP 
LDERR 


#18 


FITAB. Y 
INDEX2 


FITAB, Y 
INDEX2+1 


FITAB, Y 
FNLEN 


FITAB, Y 
EAL 


FITAB, Y 
EAL +1 


+READ THE FILENAME 


}BAD FILENAME.... 
sLOOKUP THE FILE IN DIRECTORY 
+#NOT FOUND... 


+} INDEX INTO THE DIR FOR ADDRES 


s START LO 


i START HI 


;GET THE MAPPER CONTROL BYTE 


+ END LO 


i END HI 


; LOOP TO LOAD DATA INTO LO RAM 


LODLP 
SEI 
LODLPO 
LDY 
LDX 
BNE 
LDX 
BNE 
LODLP 1 
LDX 
STLP 
STX 


LDA 
STA 
JSR 


LDA 
STA 
JSR 


#80 
FNLEN 
LODLP1 
#860 
STLP 


#388 


SFFFO 


+NO IRG@ ALLOWED 


;3SET UP THE BANKS 


;>SELECT 0.2 


+>SELECT 1,3 


CINDEX2),Y ;LOAD ADDRESS LO 


INDEX1 
BUMP X 


(INDEX2), Y ;LOAD ADDRESS HI 


INDEX1i+1 
BUMP X 


EXP-BASIC. SRC 


LINE®# LOC 


0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0364 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0373 
0376 
0377 
0378 
0379 
0380 
03861 
0382 
0383 
0384 
0385 
03866 
0387 
0388 
0389 
0390 
0391 


7ABS 
7AB6 
7A88 
7ABA 
7ABA 
7A8C 
7ABE 
7A?O0 
7A90 
TAPS 
TADS 
TAPS 
TART 
TAPA 
7A9B 
7AIC 
7AGPD 
7A9D 
TAPE 
TAPE 
TAPF 
TAPF 
TAGE 
TADFE 
TAAL 
7AAS 
7TAAS 
7TAAT 
7AAD 
7AAB 
7AAD 
TAAF 
7TAB2 
7AB2 
7AB4 
7AB6 
7ABS 
JTABA 
7ABC 
7ABE 
7ABF 
7ACO 
7ACO 
7AC1 
7AC2 


CODE 


Ad 
8E 
58 
60 


38 


2i 
iF 


1F 
02 
oF 
Fi 


00 
FO 


7A 


FF 


FF 
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LINE 


LODLP2 


LODLP3 


LDERR 


LDA 
STA 


INC 
BNE 
INC 


JSR 
BCC 


LDX 
STX 
CLI 
CLC 
RTS 


SEC 
RTS 


CINDEX2),Y i TRANSFER A BYTE 


CINDEX1),Y 
INDEX 1 +BUMP THE DESTINATION POINTER 
LODLP3 
INDEX1+1 
BUMP X ;BUMP SOURCE POINTER 
LODLP2 ; DONE YET? 
#0 sRESTORE THE ROM'S 
SFFFO 

;WE ARE DONE LET IR@ GO 

; LOAD ERROR 


i SUBROUTINE TO HANDLE DATA POINTERS TO EXPANSION MEM 


i 
BUMP X 


TSTXX 


DONE X 


INC 
BNE 


RTS 


INDEX2 
TSTXX 
INDEX2+1 
TSTXX 
#680 sCROSSED OVER TO OTHER BLOCK 
FNLEN 
INDEX2+1 
#%10111000 
SFFFO 
s CHECK FOR END OF FILE 
EAL 
INDEX2 
DONE X 
EAL +1 
INDEX2+1 
DONE X 
+DONE WITH LOAD 


EXP-BASIC. SRC 


LINE@ 


03993 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 


Loc 


7AC2 
7AC2 
7AC2 
7AC2 
7AC2 
7AC4 
7TACS 
7AC8 
7AC8 
7TAC9 
7AC9 
7ACI 
7AC9 
TAC? 
7ACB 
7ACD 
TACF 
7ADO 
7ADO 
7ADO 
7AD2 
7AD4 
7ADG 


CODE 


ES 
DO 
E6 


60 


AS 
Aé 
A4 
60 


77 
O02 
78 


B3 
B4 
BS 


B3 


BS 
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LINE 


) INCREMENT POINTER TO TEXT 


INCPTR 


INCRTS 


i 


i SAVE AND RESTORE ROUTINES FOR |. A. 


SAVREG 


RESREG 


INC GETPTR 
BNE INCRTS 
INC GETPTR+1 


RTS 


STA 
STX 
STY 
RTS 


LDA 
LDX 
LDY 
RTS 


WSW 
T1 
T2 


WSW 
Tl 
Te 


XxX, 


EXP-BASIC. SRC 


LINE@ 


0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 

0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 

0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 

0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 


LOC 


7AD7 
7AD7 
7AD7 
7AD7 
7AD7 
JADA 
7ADC 
7ADE 
7AEO 
7AEO 
7AE2 
7TAE4 
7TAES 
7TAES 
7AEB 
TAEA 
7TAEC 
7AEE 
7AEE 
TAF 1 
7AF3 
7TAFS 
7AF 7 
TAFA 
7AFB 
7TAFD 
7AFF 
7BO1 
7BO1 
7B03 
7BOS 
7BO7 
7BO9 
7BOC 
7BOD 
7BOF 
7BOF 
7B1i0 
7B10 
7B10 
7B10 
7B10 
7B10 
7B13 
7B15 
7B17 
7B19 
7B1B 
7BIE 
7Be21 
7B24 
7B26 
7B27 
7B2A 
7B2B 


CODE 


70 


22 
F7 


00 
96 


00 


7A 


78 


78 


0O 
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LINE 


i GET FILENAME FROM USER COMMAND 


é 

GETFN 
JSR 
BEQ 
CMP 
BNE 


LDA 
STA 
TAX 
TAY 
LDA 
STA 
LDA 
STA 
FLOOP 
JSR 
LDA 
CMP 
BEG 
STA 
INX 
CPX 
BCC 
BCS 
ENDFI 
STX 
LDA 
CPX 
BCS 
STA 
INX 
BNE 
ENDFIA 
RTS 


FI10 


CHRGET 
BADFI 
4°" 
GETFN 


#0 
STATUS 


#<F ILE 
FNADDR 
#>F ILE 
FNADDR+1 


INCPTR 


(GETPTR), Y 


“°" 
ENDF I 
FILE, x 


#18 
FLOOP 
BADFI 


FNLEN 
#0 

#18 
ENDFIA 
FILE, X 


F110 


i GET THE FILE TYPE 


GTYPE 
GCOMMA 


CHRGET 
BADFI 
#’, 
GCOMMA 


FILE. X 
FILE+2, X 
CHRGET 
BADF I 


FILE. X 


sNOT THERE ERROR 
;LOOCK FOR OPEN QUOTE 


sLOOK FOR END QUOTE 


+GO GET MORE 
+ TOO LONG 


}SAVE LENGTH (INDEX) 
s}PAD FILENAME WIH $00 ON RIGHT 


iNOT ENOUGH INFO..... 


+GET THE CURRENT FILENAME LENG 


PUT COMMA HERE ALSO 
GET TYPE BYTE (S.U,P.R) 


*#NO VALUE CHECK IS DONE!!! 
;SKIP TO PUT IN THE READ OR WR 
;BUT DO NOT PUT IN HERE 


EXP-BASIC. SRC 


LINE® 


0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0310 
OSi1 
O3512 
0313 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 


LOC 


7Bac 
7B2E 
7B2E 
7B2E 
7B2E 
7B2E 
7B30 
7B32 
7B33 
7B33 
7B33 
7B35 
7B37 
7B38 
7B38 
7B38 
7B38 
7B38 
7B38 
7B3B 
7B3D 
7B3D 
7B3D 
7B3D 
7B3F 
7B3F 
7B42 
7B44 
7B4AS 
7B46 
7B48 
7B49 
7B4B 
7B4D 
7B4D 
7B4D 
7B4E 
7B4F 
7B51 
7B33 
7BSS5 
7B57 
7B59 
7B59 
7B59 
7BS9 
7BSB 
7B5B 
7BSE 
7B60 
7B6é2 
7B44 
7B465 
7B67 
7B6é9 


CODE 


84 


Ag 


60 


A? 


60 


20 
90 


AO 


B9 


FO 
91 
cs 
co 
90 


D1 


0@ 
D4 


01 
96 


7D 
GE 


Ei 


29 


09 


19 


F4 
2E 


7B 


78 


78 
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LINE 


BADF I 


~- en ee Ty 


ENTER 


i LOOK 


EMPTY 


EMPFND 


i PLACE 


7 


ENTMOR 


STX 


LDA 
STA 
RTS 


LDA 
STA 
RTS 


JSR 
BCC 


FOR 


LDY 


LDA 
BE@ 
TYA 
SEC 
SBC 
TAY 
BNE 
BEG 


TYA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 


FNLEN 


PUT IN THE DEVICE NUMBER CHECK LATER #44 448005 ee 
FOR NOW DEFAULT TO 6 ONLY 


#8 
FA 


#601 
STATUS 


ENTER FILE INTO TABLE 
PUT IN LOAD ADDRESS AND SET STATUS IN CARRY 


LUKUP +LOOK FOR FILE IN TABLE 
BADENT + DUP FOUND... 
BLANK ENTRY 


#ENTMAX 


FITAB. Y 
EMPFND 


#ENTRY 


EMPTY 
BADENT 


sFOUND AN ENTRY 
iPOINT INDEX! TO ENTRY 


#<FITAB 
INDEX1 
#>FITAB 
#0 
INDEX1+1 


ENTRY INTO DIR 


LDY 


LDA 
CMP 
BEG 
STA 
INY 
CcPY 
BCC 


#0 


FILE, ¥ 

#’, sONLY PUT IN DRIVE #@ AND NAME 
ENTFST 

(INDEX1), Y 


#18 
ENTMOR 


EXxP-BASIC. SRC 


LINE# LOC 
0527 7B69 
0528 7B49 
0529 7B6B 
0530 7B6B 
0531 7Bé6B 
0532 7B6D 
0533 7B4F 
0534 7B70 
0535 7B72 
0536 7B74 
0537 7B75 
O538 7377 
0539 7B79 
0540 7B7A 
0541 7B7B 
0542 7B7B 
0543 7B7C 
0544 7B7D 
0545 7B7D 
05446 7B7D 
0547 7B7D 
9548 7B7D 
0549 7B7F 
0550 7B7F 
0551 7382 
0552 7Ba4 
0553 7Be4 
0554 7B85 
0553 7Ba6 
0556 7Bee 
0557 7B89 
0558 7B8B 
0559 7BeD 
0560 7B8D 
0561 7BeD 
0562 7BEF 
0563 7B91 
0564 7B91 
0565 7B94 
0566 7B9& 
0567 7398 
0568 7B9B 
0569 7B9D 
0570 7B9E 
0571 7B9F 
0572 7BA1 
0573 7BA3 
0574 7BA3 
0573 7BAQ 
0576 7BAS 
0577 7BAS 
0578 7BA7 
0579 7BA7 
0580 7BA9 


0381 


7BAC 


CODE 


AO 


A4 


60 


A4 
4c 


12 


BB 


1F 


BC 
1F 


BE 
1F 


E1 


29 
09 


19 


F4 
1F 


B6 


Bé 
64 


78 


78 


78 


7B 
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LINE 
ENTFST 


ENTLST 


BADENT 


F) 


LDY 


LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
CLC 
RTS 


SEC 
RTS 


#16 

sENTER END ADDRESS 
MASTER sSAVE THE LOAD ADDRESS 
(INDEX1),Y 
MASTER+1 
(INDEX1),Y 

*+PUT IN THE BANK CONTROL BYTE 
MASTER+3 
(INDEX1).Y 

sCOME HERE FOR BAD EXIT 


i LOOKUP FILE IN DIRECTORY 


LUKUP 


LUK10 


LUK20 


LUKCMP 


LUK30 


FOUND 


TRYMOR 


NOTFND 


LDY 


LDA 
BNE 


TYA 
SEC 
SBC 
TAY 
BNE 
BEQ 


STY 
LDX 


LDA 
CMP 
BEQ 


BNE 
INY 
INX 
CPX 
BCC 


LDY 
CLC 
RTS 


LDY 
JMP 


#ENTMAX 


FITAB, Y 
LUKCMP 


iMOVE TO NEXT FILE 
#ENTRY 


LUK10O 
NOTFND 


T3 i#SAVE .Y WHILE DOING THE COMPA! 
#0 


FILE, X 

#', i COMMA MEANS DONE 
FOUND 

FITAB, Y 

TRYMOR 


#18 
LUK30O 


+I FOUND IT 
T3 + .Y POINTS TO FILE 


iI AM TRYING TO FIND IT 
T3 


LUK2O 
+1 tosT IT 


EXP-BASIC. SRC 


LINE@ 


0362 
0583 
03564 
0585 
03566 
0387 
0588 
0389 
0590 
O5971 
0592 
0593 
0594 
OS95 
03596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0406 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
04626 
0627 
0628 
0629 
0630 
0631 


ERRORS = 


LOC CODE 
7BAC 38 
7BAD 640 
7BAE 
7BAE 
7BAE 
7BAE 
7BAE A6é BD 
7BBO DO 06 
7BB2 A2 80 
7BB4 SE FO 
7BB7 640 
7BBSE 
7BBS8 Az 88 
7BBA 8E FO 
7BBD Aé BD 
7BBF 70 04 
7BC1 Az 80 
7BC3 86 BD 
7BCS 
7BCS 60 
7BCé 
7BC46 
7BC6 
7BC6 
7BC& E6 BB 
7BC8 DO 10 
7BCA E6 BC 
7BccC 3 6bDO OC 
7BCE Aé& BD 
7BDO DO OA 
7BD2 A2 40 
7BD4 66 BD 
7BD& A2 8O 
7BDB 86 BC 
7BDA 
7BDA 18 
7BDB 60 
7BDC 
7BDC 38 
7BDD 60 
7BDE 
7BDE 
7BDE 
7BDE 
7BDE 
7BDE 
7BDE 
7BDE 
7BDE 
7BDE 

0000 


FF 
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LINE 


SEC 
RTS 


i THIS ROUTINE TURNS ON THE PROPER BANK 


SELBNK 
LDX MASTER+2 
BNE SEL10 
LDX #680 i TURN ON BANKS O AND 2 
STX SFFFO 
RTS 
SEL10 
LDX #686 + TURN ON BANKS 1 AND 3 
STX 6FFFO 
LDX MASTER+2 sONE BYTE HAS THE $40 FLAG 
BVS SEL30O 
LDX #6860 
STX MASTER+2 
6SEL30O 
RTS 


i BUMP UP THE MASTER POINTER AND SET THE #40 FLAG 


INCMAS 


INC MASTER ;BUMP POINTERS 
BNE MASRTS 
INC MASTER+1 
BNE MASRTS iCHECK FOR OVERFLOW OF BANK 
LDX MASTER+2 iWE WENT OVER 
BNE INC10 i OUT OF MEMORY? 
LDX #%40 iSET FLAG FOR OVERFLOW 
STX MASTER+2 
LDX #%80 i#RESET POINTER HI 
STX MASTER+1 
MASRTS 
CLC 
RTS 
INC10 +QUT OF MEMORY 
SEC 
RTS 


+ THESE MUST BE AFTER THE DEFINITION 


ZZ1 =RECAL-1 ;RECALL FROM DISK 
ZZ3 =LOAD-1 ; LOAD LOW MEMORY FROM EXPANST 
ZZ4 =OVRLY-1 i OVERLAY PROGRAM IN MEMORY 


ZZ5 =EXEC-1 i EXECUTE WITHOUT OVERLAY 
zZz8 =QUIT-1 s EXIT PROGRAM. 
. END 


TE=T = 


10 
is 
lr 
15 
i> 
20 
a0 
40 
aT 


FEM THIS I5 A TEST 

PRINT" STESTS" sFORTH1 TOSO8 sNEST 
FRINT'FPRINT THE HUMBERS FROM &1 To So" 
PRINT"ALOHG WITH THE SHURRE-ROOT 
FORIS1TOS00 SHEXT 

FORT=S1 T7078 

PRINMT.~1-20Re 15 

MEST 

f1E."TEST4" 


TE=T -+ 


14 
15 
1? 
16 
2M 
a 
40 
45 
bet) 
A 
AG 
ra 
Fert 


REM THIS 15 A TEST 
PRIHMT'STEST4" SFORTH1 TOZ0O HEAT 

PFRIHT' OU HAWE SEEM THE 2S7TEN LORD AND" 
PRIHT"ESECUTE THREE PROGRAMS FROM THE 
PRIHT'ESPAHSIOW HENORY. IF You LOOK AT 
PRIWT" THE FILES WITH THE WORD "TEST" IH THEN 
PRIHT' Ol WILL SEE HOW THIS IS CONE 

PRIHT' SelsiT PE SPACE TO COHTINUE OR sem To GuIT" 
BETAS SIF ARF="" THEMES 

IFAS="2" THEM sb s ENO 

IFA¢=" "THEN SIE. "TEST1i" 
IFA¢=S"Z" THEM SIE."TESTS" 
IFAF=""3"THEM SIE. "TESTS" 


P/N 119001-33A 


34. 


é 


, 


1. 
7” 
Ge 
? 


i3e 
4. 
De 
26. 
ie 


? 


QAVHQ OAV QgaeogaaaGagqgagonagoooge BO DBO VISVOOSSSISO GG 


2 EHEREREEREREEOEDE OER 
2% TEMO INSTRUCTIONS & 
2 RE Oe 


sMEMOR'Y' CHECK PROGRAM 
11.8 8Q32 

s2- INSTALL DISKETTE IN DRIVE @ 

+3 TYPE ‘LOAD S@s2. MEM. PRG", GE CRETURND 


VSTEM MUST BE AN 


3A. SHIFT  RUNZSTOF WILL ALSO WORK 
IF LOAD USED TYPE: FUN CRETURN)> 


33e GRAPHIC TNEFLAY SHOULD AFFEAR IMMIDIATELY 
AFTER PROGRAM HAS LOADED AND EXECUTED 


+ ALL DISFLAYS ARE FORMATTED THE SAME : 

POG0G00000: RWW 1 IS READ.WRITE BLOCK ONE.ETC. 
sCYCLES I2 THE NUMBER CF PASSES FOR THAT 32k. SECTION 
FAILS ARE THE CUMULATIVE FAILS FOR THAT 32K.SECTION 


» THE SCREEN SHOULT! REVERSE AFFROXIMATELY' EVERY 

7& SECONDS. ON A BRIGHT SCREEN THE LOWER 32K. IS RUNNING 
30H A DARK SCREEN THE URFFER Sek.1S RUNNING 

> THE NOTCH IN THE UPFER LEFT CORNER IS FOR SCREEN PEEK 


> AS THIS FROGRAM EXECUTES ALMOST ENTIRELY FROM THE 

64k. ALI-OH AN FAILURES IN MEMORY ABOWE FEGQCHEX) 

WILL CAUSE THE FROGRAM TO CRASH. THE MEMCRY' CHECK 

118 A GG To FF AND AN AA TO SS TRANSITION CHECK. 

I.E. WRITE GG CHECK OG,.WRITE FF EVERY 4TH. BYTE,.CHECK FF 
+SWAF FF WITH NEST LOWEST BYTE.CHECK ETC. THE FROGRAM THEN 
sTIGES THE SAME THING WITH AR AND SS FOR A FAIRLY 
COMPREHENSIVE SERO TO ONE TRANSITION CHECK. 


DENG PROGRAM : 


TYFE: LORD"EXFANDED-DEMO",.@& CRETURND 
WHEN REAL APPEARS. TYPE: RUN CRETURND 
FROGRAM EMECUTES THREE FROGRAMS FROM THE ADD-ON 
WITH COMMENTS 
TYPE: LORD" ADI-ON-LOAI".@& CRETURND> 
TYFE: RUH CRETURND 
PET SHOULT RESPOND WITH SYSTEM NAME 7 
RESPOND WITH THE TYFE OF BASIC VOL! REQUIRE 
I.E. BASICS .@”°&6 (RETURN) 
FET SHOULT' RESPOND BY LOADING FROM DRIVE ZERO 
ANT! GIVING THE STAHTARD BOCT TDISFLAY. HOWEVER. 
THE PET IS NOW EXECUTING FROM THE ADD-ON RAN. 


END 


TOGGLE SEQ...... PAGE 0001 


LINE# LOC CODE LINE 

0001 0000 ERK KERR KKEKKKKKK KKK KK 

0002 0000 5* TOGGLE PRG. * 

0003 o000 BRIO IR TR TOR IO IT RIK IK 

0004 0000 

0005 0000 sTHIS PROGRAM "TOGGLES" MOST OF THE GATES 
0006 0000 sWITHIN THE 64K.ADD-ON 

0007 0000 

0008 0000 *=$0400 sSTART MEMORY LOCATION 
0009 0400 ; ALLOWS "RUN"COMMAND FOR RESTART 

0010 0400 : 

00117 0400 00 BYTE 0,13,4,10,0,158 310 SYS 


0011 0401 OD 
0011 0402 04 
0011 0403 OA 
0011 0404 00 
0011 0405 9E 
0012 0406 28 31 BYTE '(1039)',0,0,0 
0012 0406 00 
0012 040D 00 
0012 O40E 00 


0013 O40F 4C 12 04 JMP START 

0015 0412 SRR KR RK RK RK K 

0016 0412 ;* BLOCK 0-2 * 

0017 0O412 pk a kK ek 

0018 0412 78 START SEI ;NO INTERRUPTS 
0019 0413 AY _ 80 LDA #$80 ;ENA 0 & 2 
0020 0415 8D FO FF STA $FFFO 

0021 0418 8D GC 80 STA $8000 ;WRITE 0 
0022 041B 8D 00 CO STA $C000 ;WRITE 2 
0023 O4lE pe a Ke KK 

0024 O4lE 3* BLOCK 1-3 * 

0025 O4lE pe KARR RRR RR KK 

0026 O41E AY 8C LDA #$8C ;ENA 1& 3 
0027 0420 8D FO FF STA SFFFO 

0028 0423 8D O00 80 STA $8000 sWRITE 1 
0029 0426 8D 00 CO STA $C000 sWRITE 3 
0030 0429 pk Re 

0031 0429 ;* W.PROT 1-3 * 

0032 0429 pO Rk a ke 

0033 0429 AQ 8F LDA #$8F 3W/P 1 & 3 
0034 042B 8D FO FF STA $FFFO 

0035 O42— 8D 00 80 STA $8000 ;WRITE 1 
0036 0431 8D 00 CO STA $C000 ;WRITE 3 
0037 0434 gk eR KK Kk 

0038 0434 ;* W. PRTO 0-2 * 

0039 0434 eKeReR Ret ReReReReReReReiahel 

0040 0434 AQ 83 LDA #$83 ;W/P 0 & 2 
0041 0436 8D FO FF STA SFFFO 

0042 0439 8D 00 80 STA $8000 ;WRITE O 
0043 043C 8D O00 CO STA $C000 ;WRITE 2 
0044 043F N\ Meheheheleiaieielelaiehehaielel 

0045 O043F >* T.V.PEEK O0-2* 

0046 043F SII II IO OI ie 


0047 043F AQ AO LDA #$A0 “ENA PEEK 0 


INSTALLATION INSTRUCTIONS bape lap: 
FOR 64K MEMORY ADD-ON BOARD ape Vof 2 


1. Turn Pet off and unplug powcr outlet. 


2. Remove 2 screws holding cover to base. (see figure I). 





Ficure | 







eee ed 





=p-f-j= aA re 
EeReSErecee| 





SCREW SCREW 


Note: slots on 









SET SET A (SHORT) 
standoffs to te 
SCREW SCREW C (LONG) positioned parallel 
App-On MEMORY COMP NT SOLDER to edge of board. 
FIGURE I] SIDE SIDE Note: set screws on 
COMPONENT SIDE ae standoffs must face 
d f b d. 
SET SET aD (LONG) ag NS 
SCREW SCREW 


B 
(SHORT) 


4. Using a small chisel head screwdriver, remove device 6502 MPU from position UB14 on 
the main CPU board. (save 6502) 


5. Install flat ribbon cable into UB14 on main CPU board (replacing the removed 6502). 
Position cable such that it is facing front of computer. 


6. Install long power harness to J11 on main CPU board. (note polarity). Position 
harness towards front of computer. 


7. Install short harness to J10 on main CPU board. (note polarity). 
8. Ascertain that the 3 cables are positioned towards front of computer. 


9. Install the 64K memory add-on board over the main CPU board such that slotted side 
is on right hand side of computer, 


10. Position standoffs such that, the 2 long ones straddle the edge of the computer base, 
while the 2 short ones straddle the main CPU board heat sink. (see figure III). 
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11. With Allen wrench tool tighten 4 sets screws on standoffs to secure add-on board. 
12. Connect flat ribbon cable to edge connector on 64K add-on board. 
13. Connect the long power harness to J2 on 64K board.(note polarity). 


Connect the short harness to J1 on the 64K board. (note polarity). 


14. 

15. Loosen 4 standoff screws and adjust board to it's left most position, retighten 
4 screws. 

16. Close Pet cover & reinstall 2 screws to secure cover to base. 


Note: At times the inside of the cover may rub the edge of the board 
during opening and closing of the computer cover. 
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Clwcewton 


Pant OF STANDOFF'S 
STAND OFF ( Piy FTIcT-02 ) 
LenGly 3120 CHES 
STAN OFF ( Pty TO7IET-O1 ) 
LENGTH 1062 meres 
CABLE, FLAT BI BGON 
(Pin 8032096-0!' ) 


CABLE ASST, HARNESS (LONG) 
CPA soszo87- O01) T2-38 


cane ASST, HARNESS CynctT) 
(Pia 8032098 ~a1)  y1- TO 
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